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Abstract 

This  paper  contains  the  source  code  for  implementations  of  the  001  benchmark  and  the  AFIT  simu¬ 
lation  benchmark.  OOl  benchmark  implementations  are  listed  for  the  Itasca,  Matisse,  and  ObjectStore 
object-oriented  database  management  systems  (DBMS).  An  AFIT  simulation  benchmark  implementation 
is  listed  for  the  ObjectStore  object-oriented  DBMS. 


1  Introduction 

As  part  of  research  into  the  performance  of  current  commercial  object-oriented  DBMSs,  we  developed  imple¬ 
mentations  of  the  001  benchmark  and  the  simulation  benchmark  [2j.  The  001  benchmark  is  specified  in  [1], 
The  OOl  benchmark  is  a  generic  measure  of  object-oriented  DBMS  performance.  The  simulation  benchmark 
is  specified  in  [2].  The  simulation  benchmark  examined  the  performance  of  object-oriented  DBMSs  in  the 
simulation  domain.  This  paper  contains  the  source  code  for  three  implementations  of  the  001  benchmark 
and  one  implementation  of  the  simulation  benchmark. 

2  OOl  Benchmark 

This  section  lists  the  source  code  for  our  implementations  of  the  001  benchmark.  Implementations  were 
created  for  the  Itasca,  Matisse,  and  ObjectStore  object-oriented  DBMSs.  Although  several  versions  of  these 
implementations  were  developed  for  each  object-oriented  DBMS,  only  our  final  implementation  is  shown. 

All  three  001  benchmark  implementations  used  the  benchmark  support  software  described  in  [2].  This 
common  code  is  not  listed  for  each  implementation 

2.1  Itasca  Implementation 

This  section  lists  the  source  code  for  the  Itasca  implementation  of  the  001  benchmark  created  for  this 
research.  The  implementation  was  created  on  version  2.2  of  Itasca  using  the  Itasca  C++  API.  The  Itasca 
001  benchmark  source  code  builds  one  executable  program,  the  bench  program.  The  source  files  in  this 
implementation  are  shown  in  Figure  1.  The  files  debug.hh,  dice.hh,  dice.cc,  pmmlcg.h,  pmmlcg.c,  stopwtch.hh, 
and  stopwtch.cc  are  not  listed,  because  they  were  described  (with  a  full  source  code  listing)  in  [2].  The 
following  subsections  list  the  source  code  for  the  other  files  shown  in  Figure  1. 

*The  author  is  with  the  Department  of  Electrical  and  Computer  Engineering  (AFIT/ENG),  Air  Force  Institute  of  Technology, 
2950  P  ST,  Wright-Patterson  AFB,  OH  45433-7765. 


Itasca 

OOl  Benchmark 

Implementation 

Directory 


—  Makefile 

—  bench.cc 

—  connect. hh 

—  connect. cc 

—  debug.hh 

—  dice.hh 

—  dice.cc 

—  nullproc.hh 

—  nullproc.cc 

—  ool.hh 

—  ool.cc 

—  params.hh 

—  part.hh 

—  part.cc 

—  pmmlcg.h 

—  pmmlcg.c 
— schema.hh 
— stopwtch.hh 
— stopwtch.cc 

—  dbschema.dmp  (lisp) 

Figure  1:  Itasca  OOl  Benchmark  Source  Code  Files 
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2.1.1  Makefile 

The  Makefile  for  the  Itasca  001  benchmark  source  code  is  listed  below. 
ccc«cc 

•§•••#••••*#*•##•#••*•••*#*•*••**#*•##••#*###•#*#•####•***••#***##*•*# 

* 

t  If  debug  output  is  desired  uncomment  the  "CCPL1GS"  definition  sith 

•  "-DDEBUG"  in  it.  Only  one  definition  should  be  uncovBented . 

• 

•CCFLAGS— DDEBOG  -g 
CCFLAGS" 

• 

**S*********t*«***tt*t**t****t***tS*tt*«*S*Mt**ttt*tSttt**tt«tftfttt* 

LOFLAGS  x-Bstntie 

IHCLUDES»-I .  -I/usr/itescu/indude 

LIBS"-L/usr/itasca/lib  -lltascacpp 

ell:  bench 


•  c.o: 

»<CCC)  $ (CCFLAGS)  $ (INCLUDES)  -c  l< 

•cc.o: 

t(CCC)  t( CCFLAGS)  t (INCLUDES)  -c  *< 
pmmlcg.o:  pmmlcg.c  pnmlcg.h 
dice.o:  dice.cc  debug. hh  dice.hh  pmmlcg.h 
stopvtch . o :  stopvtch.cc  debug. hh  stopwtch.hh 
nullproc.o:  nullproe.ee  dice.hh 

pert.o:  pert.ee  debug. hh  nullproc.hh  parents. hh  scheme. hh 

connect. o:  connect.cc  debug. hh  schema. hh 

ool.o:  ool.ee  debug. hh  dice.hh  nullproc.hh  ool  .hh  parents  .hh 
scheme. hh  stopvtch. hh 

bench. o:  bench.cc  ool.hh  scheme. hh  debug. hh 

bench:  bench. o  ool.o  pert.o  connect. o  nullproc.o  stopvtch. o  dice.o  pmmlcg.o 
*(CCC)  t (LDFLAGS)  -o  bench  \ 

bench. o  ool.o  pert.o  connect. o  nullproc.o  stopvtch. o  dice.o  pmmlcg.o  \ 

I (LIBS) 

clean: 

rm  -f  • . o  bench 

2.1.2  bench.cc  OTIC  QUALITY  INSPECTED  3 

The  source  code  for  the  file  bench.cc  is  listed  below.  This  file  provides  a  driver  for  the  benchmark.  It  consists 
of  a  main  program  which  connects  to  the  Itasca  database,  then  performs  the  benchmark  operation  specified 
on  the  command  line. 

/* 


Accesion  For 

.  / 

NTIS 

CRA&I 

ffl 

DTIC 

TAB 

□ 

Unannounced 

□ 

Justification 

By 

Distribution  / 

Availability  Codes 

Dist 

A-l 

Avail  and  for  1 

Spe 

cial 

inn  *****  • 

•  •  •  •  •« 

•  •  *  *  *  • 

•  *  t  •  * 


ITASCA 
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•  •  •  •  * 

•  •  •  •  • 

•••••  •••••  Milt 

"Object  Operation*  Benchmark"  R.G.G.  Cattail  and  J.  Skaan 

Son  Microsystems 

ACM  Transaction*  on  Databasa  Systems  Vol.  17,  Ho.  1,  March  1992,  Pages  1-31. 
banch.cc 

Air  Porca  Institute  of  Technology 
Timothy  J.  Halloran 
26  Jul  1993 

This  program  performs  all  the  benchmark  measurements  for  the  001  benchmark. 

The  following  benchmark  operations  are  supported:  database  creation  (and 
load),  lookup,  forward  traversal,  reverse  traversal,  insert,  and  database 
clear  (and  destroy) . 

Revisions : 

20  Aug  1993  -TJH-  Changed  out  random  number  generator. 

*/ 

f include<  stdio . h> 

•includetstdlib  ,h> 

•includetdebug . hh> 

•include” schema . hh" 

•include"ool . hh” 

•define  TRUE  1 
•define  FALSE  0 

iiiimiiiiiiiiiiiiiiiiiiiiiiiiitiiiiiiiiimiiiiiiimiiimiiiiimi 

main(  int  arge,  char  **argv) 

DEBUG_IHIT(  "MAIM"  ,  "main”  ); 

DEBUG. OUT (  "entering”,  1  ); 

//  check  the  command  line  arguments 
if  (  arge  <  7  )  < 

fprintf(  stderr,  "bench  [operation]  [db  server]  [username]  " 

" [password]  [•  of  parts]  [random  stream] \n"  ) ; 
return  1;  //  exit  the  program 

} 

char  ^operation  ■  argv[l] ; 

if  (  !(  !strcmp(  operation,  "load"  )  II  !strcmp(  operation,  "lookup"  )  II 
!strcmp(  operation,  "ftrav"  )  II  !strcmp(  operation,  "rtrav"  )  II 
!strcmp(  operation,  "insert"  )  II  !strcmp(  operation,  "clear"  )  )  )  ■( 
fprintf(  stderr,  "ERRORDsain]  the  operation  must  be  Y'loadV,  \"lookup\",  ” 
"\"ftrav\",  V'rtravV',  V'insertV,  or  \"clear\"\n"  ); 
return  1;  //  exit  the  program 

) 

char  •db.server  ■  argv[2] ; 
char  *username  *  argv[3] ; 
char  ^password  »  argv[4]; 
int  num_parts  *  atoi(  argv[5]  ); 

if  (  (  num.parts  !*  20000  )  AA  (  num. parts  !»  200000  )  ) 

fprintf(  stderr,  "WARHIMG[main]  the  number  of  parts  is  not  20,000  or  200,000\n"  ); 
int  stream  ■  atoi(  argv[6]  ); 
if  (  (  stream  <  1  )  II  (  stream  >  100  )  )  < 

f print! (  stderr,  "ERROR [main]  the  stream  is  not  between  1  and  100\n”  ); 
return  1;  //  exit  the  program 

} 

//  output  a  program  title 

printf (  "001  BEHCHMARK  [ITASCA]  Air  Force  Institute  of  TechnologyXn"  ) ; 
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print! (  "  Ituc>  databasa  usar  X"Xs\"  on  Xs  with  Xd  parts  (random  atraan  Xd).\n", 
usarnaaa,  db.sarvar,  non. parts,  straaa  ); 

//  opan  a  connaction  to  tha  Itasca  databasa 

if  (  ITASCA : : connact (  db.sarvar,  "itasca-intarf aca" ,  nsarnana,  password  )  )  { 
fprintfC  stdarr,  "ERROR [main]  nnabla  to  connact  to  databasa  \"Xs:XsX"  on  Xs\n", 
nsarnana,  password,  db.sarvar  ); 
raturn  1;  //  axit  tha  program 

> 

//  craata  a  singla  001  banchaark  objact 

ool  ool. banchaark (  nnn.parts,  straaa  ); 

//  perform  tha  banchaark  aaasnraaant  requested  on  tha  command  line 

if  (  !strcap(  operation,  "load"  )  )  { 
print! (  "  L0AD\n"  ); 
ool .benchmark. load (  ); 

> 

also  if  (  !strcap(  operation,  "lookup"  )  )  { 
print! (  "  LOOKOPXn"  )i 
ool. banchaark. lookup .measure!  ); 

> 

else  if  (  !strcap(  operation,  "ftrav"  )  )  { 
print!  (  "  FORWARD  TRAVERSAL^"  ); 
ool .benchmark . forward. traversal. raeaaureC  ); 

} 

else  if  (  !strcmp(  operation,  "rtrav"  )  )  { 
print! (  "  REVERSE  TRAVERSALXn"  ); 
ool .benchmark . reverse.traver sal.meaaure (  ); 

> 

alsa  if  (  !strcmp(  operation,  "insert"  )  )  { 
print! (  ”  IHSERTXn"  ); 
ool .benchmark . insert .measure  C  ); 

} 

alsa  if  (  !strcmp(  operation,  "clear"  )  )  { 
print! (  "  CLEARXn"  ); 
ool. benchmark. clear(  ); 

} 

ITASCA: :cOBBit(  ); 

ITASCA: : disconnect C  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

2.1.3  connect.hh 

The  source  code  for  the  file  connect.hh  is  listed  below.  This  file  defines  function  prototypes  for  the  C++  class 
methods  of  the  Ool  Connection  class.  The  OolConnection  class  is  fully  defined  in  the  file  schema.hh.  The 
connect.hh  file  is  included  into  the  file  schema.hh  during  the  definition  of  the  Ool  Connection  class.  Itasca 
Customer  Support  recommended  including  definitions  of  C++  class  methods,  rather  than  just  adding  them 
directly  to  the  schema.hh  file  (as  is  recommended  in  the  Itasca  documentation  [3])  to  simplify  maintenance. 

•ifndaf  _ CORHECT.BB 

fdafina  _ COHHECT.HH 

/• 

##*#•  *•••«  • 

•  •  »  •  •• 

•  #  •  •  •  • 

•  •  •  *  •  ITASCA 

•  •  *  •  • 

•  •  «  if 

•••••  •••*•  ***** 
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"Object  Operations  Benchmark"  B.G.G.  Cattail  and  J.  Skeen 

Snn  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  Do.  1,  March  1992,  Pages  1-31. 
connect . hh 

Air  Force  Institute  of  Technology 
Tiaothy  J.  Halloran 
26  Jul  1993 

This  file  only  contains  the  function  prototypes  for  the  connect  class 
methods .  This  file  is  included  by  the  "acheaa.hh"  file  (which  was 
automatically  generated  by  Itasca) .  Use  of  this  file  ensures  that  the 
changes  necessary  to  the  "schema. hh”  file  are  not  lost  each  time  it  is 
regenerated. 

*/ 

void  set. OolConnection (  OolPart  enes.from,  OolPart  enew.to, 
char  enew.type ,  int  new. length  ) ; 
void  clear .OolConnection(  ) ; 

•endif  _ CORHECT.HB 


2.1.4  counect.cc 

The  source  code  for  the  file  connect.cc  is  listed  below.  This  file  implements  the  non-persistent  methods  for 
the  Ool Connection  class.  The  Ool Connection  class  is  fully  defined  in  the  file  achema.hh. 

/• 


»»###  *••*» 

•  •  t 

•  ft 

•  •  • 

s  *  • 

•  *  • 

•*«*•  nttt 


»* 

•  • 

•  ITASCA 

t#S#» 


"Object  Operations  Benchmark"  R.G.6.  Cattail  and  J.  Skeen 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  Vo.  1,  March  1992,  Pages  1-31. 


connect.cc 


Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
26  Jul  1993 
*/ 

•include<debug .  hh> 

•include "schema. hh" 

////////////////////////////////////////////////////////////////////// 
void  OolConnection: :set.OolConnection(  OolPart  enew.from,  OolPart  enes.to, 
char  enew.type,  int  new. length  ) 

■C 

DEBUG_IMT(  "CORRECTION"  ,  "OolConnection:  :set. OolConnection”  ); 

DEBOG. OUT (  "entering",  1  ); 

from  a  new. from; 

from->eonnectedTo.addToSet(  this  );  //  also  set  the  inverse 

to  ■  new.to; 

to->connectedFrom.addToSet(  this  );  //  also  set  the  inverse 

type  ■  new. type; 
cLength  a  new. length; 

> 

/////✓///////✓///////////////////////////////////////////////////✓///' 
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void  OolConnoction: : clear. OolConnoction (  ) 

DEBUG, HIT (  "COBBECTIOB"  ,  "OolConnoction: : clear. OolConnoction"  ); 

DEBUG. OUT (  "entering”,  1  ); 

from->connectedTo.removeFrooSet(  this  ); 
to->connectedFrom.removeFromSet(  this  ); 

} 

iiiiiiiiiiiiimiiiiiimmmiiimiiiiiiiiiiiiiiiiiiiiiiiiimiiiii 

2.1.5  nullproc.hh 

The  source  code  for  the  file  nullproc.hh  is  listed  below.  This  file  defines  the  null  procedures  which  are  required 
to  be  called  at  certain  points  in  the  OOl  benchmark. 

•Undo!  ..BULLPROC.HB 

•define  _ BULLPROC.HB 

/* 

IIMI  •••••  • 

•  •  •  • 

•  •  •  •  •  • 

•  »  »  •  *  ITASCA 

•  «  •  »  • 

«  t  •  t  t 

•••••  Mill  •«••« 

"Object  Operations  Benchmark"  R.G.G.  Cattoll  and  J.  Skean 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  Bo.  1,  March  19S2,  Pages  1-31. 
nullproc.hh 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
19  Jun  1993 

Revisions: 

01  Jul  1993  -TIB-  The  function  "null.procedure.lO"  uas  changed  to 
"null.procedure" . 

*/ 

void  null.procedure(  int  x,  int  y,  char  *type  ); 

void  null.procedure.gat.x.y(  int A  nev.x,  inti  neu.y,  int  stream  ); 

fendif  ..BULLPROC.HB 

2.1.6  nullproc.cc 

The  source  code  for  the  file  nullproc.cc  is  listed  below.  This  file  implements  the  null  procedures  which  are 
required  to  be  called  at  certain  points  in  the  001  benchmark. 

/* 

«»»»•  ••»*•  • 

•  *  •  *  •• 

•  i  #  •  f  • 

•  •  •  #  •  ITASCA 

•  •  •  «  • 

•  «  •  I  < 

•MM  ••«••  ••••• 

"Object  Operations  Benchmark"  R.G.G.  Cattail  and  J.  Skeen 

Sun  Microsystems 
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ACM  Transaction*  on  Database  Systems  Vol.  17,  Xo.  1,  March  1992,  Pages  1-31. 
nollproc . cc 

Air  Fore*  Institute  of  Technology 
Timothy  J.  Halloran 
19  Jon  1993 

Revisions: 

01  Jul  1993  -TJH-  The  function  "null.procedure. 1 O "  was  changed  to 
"null.procedure" . 

*/ 

•include<stdio . h> 

•include<dice .hh> 

•define  TRUE  1 
•define  FALSE  0 
static  int  debug  «  FALSE; 

///////////////✓////////////////////////////////////////////////////// 

void  null.procadure(  int  i,  int  y,  char  *typa  ) 

{ 

//  this  procedure  does  nothing  (a  null  procedure) 

//  (a  special  debug  scheme  is  used  here  so  that  even  a  very  smart 
//  compiler  sill  still  make  this  procedure  call) 
if  (debug) 

printf(  "[null.procedure]  X6d  X6d  Xs\n",  x,  y,  type  ); 

> 

////////////////////////////////////////////////////////////////////// 

void  null.procedure_gat_x_y(  intt  nes.x,  intt  nes.y,  int  stream  ) 

i 

nes.x  •  (int)roll(  0,  99999,  stream  ); 
nes.y  ■  (int)roll(  0,  99999,  stream  ); 

} 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIUIIIIIIIIIIIIII 


2.1.7  ool.hh 


The  source  code  for  the  file  ool.hh  is  listed  below.  This  file  defines  the  001  class.  This  class  implements 
the  benchmark  measurements  and  reporting  functions  required  by  the  001  benchmark.  The  001  class  is 
non-persistent. 


•ifndef  ..001.HH 
•define  ..001.HH 
/* 


*••••  ••••• 

•  *  f  • 

•  •  •  • 

*  •  •  * 

•  •  •  • 

•  *  •  • 

••*••  **••• 


*• 

•  • 

•  ITASCA 

•••«• 


"Object  Operations  Benchmark"  R.G.6.  Cattail  and  J.  Skeen 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  No.  1,  March  1992,  Pages  1-31. 
ool . hh 


Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
26  Jul  1993 

*/ 
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•include "par ams .hh" 


struct  benchmark. results.type  { 
double  elapsed.time ; 
double  normalized. elapsed.time ; 

Int  num.part*. connected ; 

>  ; 

class  ool  ■£ 

int  num.nodes_visited.in_f oruard.traversal ; 
int  num.parta ; 

benchmark. results. type  results  [(nJH.BENCBMiRK. ITERATIONS]  ; 
int  stream;  //  for  the  random  number  generator 
OolPart  ecreate.a.part(  int  part. id  ); 

void  create.connections(  OolPart  edb.part,  int  num. parts  ); 
void  r eport .results (  int  measurement  ); 
public: 

ool(  int  num.parts,  int  stream  ); 
void  clear!  ) ; 

void  forward. traversal  .measure!  ) ; 
void  insert .measure!  ) ; 
void  load!  ) ; 
void  lookup.measure!  ) ; 

void  reverse. traversal .measure (  )  ;  • 

>; 

fendif  ..001.HH 

2.1.8  ool.cc 

The  source  code  for  the  file  ool.cc  is  fisted  below.  This  file  implements  the  001  class.  This  class  implements 
the  benchmark  measurements  and  reporting  functions  required  by  the  OOl  benchmark.  The  001  class  is 
non-persistent. 

/* 

inn  *•*••  * 

•  *  •  »  •• 

•  «  t  t  *  • 

t  t  *  «  *  ITASCA 

t  *  *  •  * 

*  *  «  •  * 

*•*»*  »#*»»  it### 

"Object  Operations  Benchmark"  R.G.G.  Cattail  and  J.  Skeen 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  No.  1,  March  1992,  Pages  1-31. 
ool.cc 

Air  Force  Institute  of  Technology 
Timothy  J.  Hal lor an 
26  Jul  1993 

Revisions: 

19  Aug  1993  -TJH-  Changed  the  "report .results!  )"  function  to  provide  more 

concise  output. 

20  Aug  1993  -TJB-  Changed  out  random  number  generator. 

21  Aug  1993  -TJB-  Changed  the  "load!  )”  function  to  perform  intermediate 

commits  !rather  than  trying  to  load  the  entire  database 
in  a  single  transaction) .  Loading  the  entire  database 
was  causing  this  program  to  use  to  much  system  memory. 

07  Sep  1993  -TJB-  Changed  the  code  to  fix  several  memory  leaks.  ITASCA 
does  not  manage  the  transient  memory  associated  with 


persistant  objects  as  sell  as  I  thought,  tha  application 
is  responsible  lor  freeing  it  in  most  cases . 

*/ 

# include<  stdio . h> 

•includetstdlib . h> 

•indude<time  .h> 

extern  "C"  int  strftime( . . . ) ;  //  not  defined  in  the  <time.h>  header  file 

•include<dice ,hh> 

•includa<stopwtch.hh> 
tinclude<debug . hh> 

>include"schema.hh" 
tinclude”ool . hh" 

•include"nullproc .hh" 
f include"params .hh” 

enum  <  INSERT ,  FORWARD.TRAVERSAL ,  LOOKUP,  REVERSE. TRAVERSAL  >; 
static  char  ‘part. types [10]  »  { 

"part-typeO" ,  "part-typel" ,  "part-typa2” ,  "part-type3" ,  "part-type4" , 
"part-type6" ,  ”part-type6" ,  ”part-type7" ,  "part-type8”,  "part-type9" 

>; 

////////////////////////////////////////////////////////////////////// 

ool::ool(  int  num .parts ,  int  stream  ) 

DEBUG. INIT(  "001”  ,  "ool::ool"  ); 

DEBUG. OUT (  "entering",  1  ); 

II  save  the  number  of  parts  in  the  database 
this->num_parts  »  num. part a ; 

//  save  the  stream  number  for  use  with  the  random  number  generator 
this->stream  ■  stream; 

//  calculate  the  number  of  nodes  which  will  be  visited  in  a  forward  traversal 
//  (this  value  sill  be  used  to  normalize  the  measurements 
//  from  the  reverse  traversal) 
int  nodes. at. current .level  *  NUM. CONNECTIONS ; 
num.nodea. visited. in.forward.traversal  *  1  ♦  NUM. CONNECTIONS; 
for  (  int  i  -  2  ;  i  <-  TRAVERSAL.DEPTH  ;  i++  )  { 
nodes.at. current. level  **  NUM.CONNECTIONS; 

num.nodes.visited.in. forward. traversal  +»  nodes.at. current. level; 

} 

DEBUG. OUT (  sprintfC  BUG,  "number  of  nodes  which  will  be  visited  in  the  " 
"forward  traversal  Xd” ,  num.nodes.visited.in.forward. traversal  ) ,  2  ) ; 

} 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  ool::clear(  ) 

DEBUG_INIT(  "001"  ,  "ool::clear"  ); 

DEBUG. OUT (  "entering",  1  ); 

OolPartClassObject  part. class; 

OolConnectionClassOb ject  connection.class ; 

part_class.pDelete(  "t"  );  //  delete  all  the  parts 

connection.class. pDelete(  "t"  );  //  delete  all  the  connections 

ITASCA: : commit (  ); 

//  note  that  this  procedure  doesn’t  delete  the  schema 

DEBUG. OUT (  "all  parts  and  connections  deleted  (but  the  schema  remains)”,  2  ); 

> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

OolPart  *ool : : create.a.part (  int  part. id  )  //  private 

{ 
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DEBUG. INIT(  "001"  ,  "ool : : create.a.part"  ); 

DEBUG. OUT (  "entering",  1  ); 

OolPart  •new.part ; 
int  new.x; 
int  new.y; 

char  tart. build. data [10] ; 

//  craate  a  new  part  in  the  databasa 
char  snew.type  »  part.types[roll(  0,  9,  stream  )] ; 
null.procedure.get.x.y(  new.x,  new.y,  stream  );  //  null  procedure 

long  noB.build.datatima  *  roll(  JiH. 1.1980 ,  JAN. 1.1990,  stream  >; 
struct  tm  *new_tm_timedate  »  localtime'  Anew.build.datatime  ); 
strftime(  taxt.build.data,  10,  "XdXbXY" ,  naB.tm.timadata  ); 

DEBUG. OUT (  sprintf (  BUG,  "adding  part  Xd  (Xs  X6d  X6d  Xs)", 
part. id,  naB.type,  nes.x,  nae.y,  taxt.build.data  ),  2  ); 
nes.part  ■  nan  OolPart; 
if  (  ! new.part* >0kay(  )  )  < 

fprintf (  stdarr,  "ERROR [ool: :creata.a.part]  Itasca  failed  to  craate  ” 

"part  number  Xd\n",  part. id  ); 

ITASCA: : abort (  ); 

ITASCA: : disconnect (  ) ; 
exit(  1  ) ; 

> 

neu.part->set_OolPart(  part.id,  new. type,  nes.x,  nas.y,  nas.build.datatimo  ); 
return (  nes.part  ) ; 

} 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllimmillllll 

void  ool: : create. connections (  OolPart  edb.part,  int  num.parts  )  //  private 

DEBUG.INIT(  "001"  ,  "ool : : create.connections"  ); 

DEBUG. OUT (  "entering".  1  ); 
int  cpart.id; 

OolPart  edb.cpart; 

OolConnection  *nes_ connection; 
int  nev.length; 
char  *noB_type; 
char  query .expression [80] ; 
int  status; 

//  create  NUM.CONNECTIONS  from  the  part  "db.part" 
for  (  int  c  ■  1  ;  c  <»  NUM.CONNECTIONS  ;  C++  )  { 

if  (  roll(  1,  10,  stream  )  >  LOCALITY. OF.REFERENCE  )  { 

//  90X  of  the  time  create  connection  to  the  closest  IX  of  parts 
//  (this  is  true  shen  "LOCALITY.OF.REFERENCE"  is  equal  to  1) 
cpart.id  *  db.part->id  +  (int)roll(  1,  (long)(  num.parts  /  100  ),  stream  ) 
-  1  -  (int)(  num.parts  /  200  ); 

//  "double  up"  at  the  ends  (to  stay  in  the  part  id  range) 
if  (  cpart.id  <  (intX  num.parts  /  200  )  ) 

cpart.id  •  cpart.id  ♦  (intX  num.parts  /  200  ); 
if  (  cpart.id  >  (  num.parts  -  (intX  num.parts  /  200  )  )  ) 
cpart.id  *  cpart.id  -  (intX  num.parts  /  200  ); 

> 

else  { 

//  10X  of  the  time  create  connection  to  any  part  1. .num.parts 
//  (this  is  true  when  "LOCALITY.OF.REFERENCE"  is  equal  to  1) 
cpart.id  *  (int)roll(  1,  (long)num.parts,  stream  ); 

} 

//  create  the  connection  in  the  database 

//  lookup  the  part  Be  are  connecting  to  with  an  Itasca  query 
db.cpart  »  NULL; 

sprintf (  query.expression,  "(equal  id  Xd)M,  cpart.id  ); 
status  *  OolPart :: select Any (  Adb.cpart, 

QUERY.EXPRESSION,  query.expression, 
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EHD.ARGS  ); 

if  (  (  status  !■  ITASCA.OK  )  II  (  db.cpart  —  NULL  )  )  { 

fprintf(  stdsrr,  " ERROR [ool: :craats.connsctions]  Itasca  failad  query \n"  >; 
ITASCA: : abort (  ); 

ITASCA: :disconnact(  ) ; 
axit (  1  ) ; 

> 

new.type  *  part .types Croll(  0,  9,  stream  )]; 
new.length  ■  (int)roll(  0,  99999,  stream  ); 

DEBUG. OUT (  sprintfC  BUG,  "connecting  part  Xd  to  part  Xd  (Xs  XBd) " , 
(int)db_part->id,  (int)db_cpart->id,  new.type ,  nee. length  ),  2  ); 
new. connect ion  «  nes  OolConnection; 
il  (  ! new. connect ion->0kay(  )  )  { 

fprintf(  stderr,  "ERR0R[ool : :create. connections]  Itasca  failed  to  " 

"create  a  connection\n"  ) ; 

ITASCA: : abort (  ); 

ITASCA : : disconnect (  ) ; 
exit (  1  ) ; 

> 

new_connection->set.OolConnection(  db.part,  db.cpart,  new.type,  new. length  ); 

//  the  application  must  remove  transient  memory  associated  with 
//  persistence  objects 
delete  nev. connection; 
delete  db.cpart; 

> 

> 

////////////////////////////////////////////////////////////////////// 

void  ool: :forvard_traversal.measure(  ) 

{ 

DEBUG_INIT(  "D01"  ,  "ool : : forward. traversal.measure"  ); 

DEBUG_0UT(  "entering",  1  ); 

OolPart  *db_part; 
int  part .id; 

char  query _expreasion[80] ; 
int  status; 

//  run  the  benchmark  iterations 

for  (  int  i  -  1  ;  i  <«  NUM.BENCHHARK. ITERATIONS  ;  i++  )  { 

//  start  the  timer 
stopwatch  traversal. timer; 

ITASCA :: commit (  );  //  start  a  nes  transaction 

traversal.timer . start C  ); 

for  (  int  j  -  1  ;  j  <«  NUM.FORUARD .TRAVERSAL  ;  j++  )  { 

II  lookup  a  random  p&.t 

part .id  ■  (int)roll(  1,  (long) num. part a ,  stream  ); 

//  lookup  the  part  with  an  Itasca  query 

sprintf  (  query. expression,  "(equal  id  Xd)",  part. id  ); 

status  "  OolPart :: select Any (  Rdb.part, 

QUERT.EXP SESSION ,  query .expression, 

EHD.ARGS  ); 

if  (  (  status  !■  ITASCA.OK  )  II  (  db.part  •*  NULL  )  )  { 

f print! (  stderr,  ”ERR0R[ool: : forward. traversal .measure]  Itasca  failed  " 
"query\n"  ) ; 

ITASCA : : abort (  ); 

ITASCA:  disconnect (  ); 
exit(  1  ); 

> 

//  find  all  the  parts  connected  to  this  part  (up  to  TRAVERSAL. DEPTH) 
results [i  -  1] .num.parts. connected  "  db.part->forward_traversal(  0  ); 
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DEBUG. OUT (  sprintf!  BUG,  "found  Xd  parts  connected  to  part  Xd" , 
results [i  -  1]  num.parts .connected,  (int)db_part->id  ),  2  ); 

//  the  application  must  remove  transiant  manor;  associatad  with 
//  parsistanca  objacts 
dalata  db.part; 

> 

//  stop  tha  tinar  and  save  tha  alapsad  time 
ITASCA: : commit (  ); 

results [i  -  1] .elapsed. time  »  traversal. timer. stop(  ); 


//  report  tha  benchmark  rasults 
report .results (  FORWARD. TRAVERSAL  ) ; 

> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  ool :: insert .measure (  ) 

{ 

DEBUG. IHIT(  "001"  ,  "ool :: insert .measure"  ); 

DEBUG.OUT (  "entering",  1  ); 

OolPart  edb.part; 

Iboolean  deleted; 

ItascaSet  part.set; 
char  query. expression [80]  ; 
int  status; 

//  run  the  benchmark  iterations 

for  <  int  i  ■  1  ;  i  <«  NUB. BENCHMARK. ITERATIONS  ;  i++  )  { 

II  start  tha  timer 
stopwatch  insert. timer; 

ITASCA: : commit (  );  //  start  a  new  transaction 

insert. timer. start!  ); 

//  insert  parts  into  the  database  and  call  a  "null”  procedure 
II  to  get  the  z  and  y  position  for  each  insert 

//  (the  "null”  procedure  is  called  by  the  "craate.a.part(  )”  function) 
for  (  int  p  »  num. parts  +  1  ;  p  <«  num.parts  +  NUB. INSERT  ;  p++  ) 
create. connections (  create.a.part (  p  ),  p  ); 

//  stop  the  timer  and  save  the  elapsed  time 
ITASCA: : commit!  ); 

results [i  -  1] .elapsed.time  «  insert. timer .stop!  ); 

//  remove  the  inserted  parts  and  connections 
int  largest. original.part. id  »  num.parts ; 

OolPartClassQbject  part .class; 

II  determine  the  extra  parts  with  an  Itasca  query 

sprintf!  query  .expression,  ••(  >  id  Xd)",  largest. original.part. id  ); 
status  >  OolPart: : select!  part.set, 

QUERY. EXPRESSION ,  query.expression, 

END.ARGS  ); 

if  (  (  status  !■  ITASCA.OK  )  II  (  part.set .size!  )  ■■  0  )  ){ 

fprintf!  stderr,  "ERROR [ool :: insert .measure]  Itasca  failed  queryXn"  ); 
ITASCA: : abort!  ); 

ITASCA: : disconnect!  ); 
exit!  1  ) ; 

> 

DEBUG.OUT!  sprintf!  BUG,  "now  Xd  extra  parts  in  the  database", 
part. set. size!  )  ),  2  ); 

II  delete  all  the  extra  parts  (and  corresponding  connections) 
OolPartSetlterator  iterator!  part.set  ); 
while  (  db.part  «  iterator!  )  )  { 
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db.part->clear.OolPart!  );  //  clear  the  part  for  daleta 

db_part->deleteObject!  Adeleted  ); 
if  <  ! delated  )  { 

fprintf!  stderr,  "ERROR [ool: : insert .measure]  Itasca  failed  delete\n"  ); 
ITASCA : : abort (  ); 

ITASCA: : disconnect (  ); 
exit(  1  ) ; 

> 

> 

ITASCA : : commit (  )  ; 

> 

//  report  the  benchmark  results 
report. results (  INSERT  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

void  ool : :load(  ) 

DEBUG. INIT(  "001"  ,  "ool:: load”  ); 

DEBUG. OUT (  "entering",  1  ); 

OolPart  *db_part; 

ItascaSet  part. set; 
int  status; 

//  time  the  creation  of  the  001  database 
stopwatch  db.creation.timer ; 

ITASCA: : commit (  );  //  start  a  new  transaction 

db.creation.timer. start!  ); 

//  create  "num.part"  parts 
DEBUG .OUT (  "creating  parts",  2  ); 
for  (  int  p  »  1  ;  p  <»  num.parts  ;  p++  )  { 
delete  create.a.part (  p  )  ; 
if  (  ! (  p  X  NUM.COHMIT  )  )  < 

ITASCA : : commit (  )  ; 

DEBUG. OUT (  "performing  commit",  2  ); 

> 

} 

//  create  an  index  to  optimize  lookup  by  part  id 

OolPartClassObject  part. class ; 

part. class. makelndex!  "id”,  END.ARGS  ); 

//  create  connections  for  each  part 
status  >  OolPart: : select!  part. set,  END.ARGS  ); 
if  !  !  status  !•  ITASCA.OX  )  II  !  part. set. size!  )  »»  0  )  ){ 
fprintf!  stderr,  "ERR0R[ool: :load]  Itasca  failed  query\n”  ); 

ITASCA:: abort!  ); 

ITASCA: -.disconnect!  ); 
exit!  1  ); 

> 

p  •  1;  //  reset  the  counter  for  commits 

OolPartSetlterator  iterator!  part.set  ); 
while  !  db.part  «  iterator!  )  )  { 

create. connections!  db.part,  num.parts  ); 
if  !  ! !  p++  X  NUM.COHMIT  )  )  { 

ITASCA: : commit!  ); 

DEBUG. OUT!  "performing  commit" ,  2  ); 

> 

} 

//  report  the  time  it  took  to  load  the  database 
ITASCA:  -.commit!  )  ; 

double  total.elapsed.time  ■  db.creation. timer. stop!  ); 
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print! (  "  X.3f  sec\n" ,  total. elepsed.tina  ); 

> 

iiiiiiiiinmiiiimiiuummimiimiiimiiiimimmiuiiiii 

void  ool: : lookup. measure (  ) 

{ 

DEBUG. Ill IT(  "001"  ,  "ool : : lookup .measure"  ); 

DEBUG. OUT (  "entering" ,  1  )  ; 

OolPart  *db.part; 
int  part. id; 

char  query _expression[80] ; 
int  atatus; 

//  rnn  tha  benchmark  i tar at ion * 

for  (  int  i  •  1  ;  i  <«  RUM.BENCHHARK. ITERATIONS  ;  i++  )  { 

//  start  tha  timar 
stopsatch  lookup .timar; 

ITASCA: : commit (  );  //  start  a  nas  transaction 

lookup.timar . start (  ) ; 

//  lookup  parts  in  tha  databaaa  and  call  a  null  procadura  for  each  lookup 
for  (  int  j  -  1  ;  j  <■  HUH.LOOKUP  ;  j++  )  { 

//  lookup  a  random  part 

part.id  •  (int)roll(  1,  (long)num_parts,  stream  ); 

//  lookup  tha  part  uith  an  Itasca  query 

sprintf  (  query  .expression,  "(equal  id  Xd)1',  part.id  ); 

status  ■  OolPart : : selectAny (  Adb.part, 

QUERY. EXPRESSION ,  query. expression, 

END.ARGS  ) ; 

if  (  (  status  !■  ITASCA.OK  )  II  (  db.part  ••  BULL  )  )  { 

f print! (  stdarr,  "ERROR [ool : : lookup.measure]  Itasca  failed  query\n"  ); 
ITASCA:: abort (  ); 

ITASCA: : disconnect (  ) ; 
axit(  1  ); 

} 

DEBUG. OUT (  sprintf (  BUG,  "looked  up  part  Xd",  (int) db.part- >id  ),  2  ); 

//  call  the  required  null  procedure 

null_proeedure(  db_part->x,  db_part->y,  db.part->type  ); 

//  the  application  must  remove  transient  memory  associated  uith 
//  persistence  objects 
delete  db.part; 

> 

//  stop  the  timer  and  save  the  elapsed  time 
ITASCA: : commit (  ) ; 

results [i  -  1] .elapsed. time  *  lookup.timer.stop(  ); 

} 

//  report  the  benchmark  results 
report .results (  LOOKUP  ) ; 

} 

////////////////////////////////////////////////////////////////////// 

void  ool: :report.results(  int  measurement  )  //  private 

{ 

{  //  two  debug  INITs  used  in  this  function  so  hide  this  one  from  the  other 
DEBUG. IN IT (  "001"  ,  "ool :: report .results"  ); 

DEBUG. OUT (  "entering",  1  ); 

> 

double  cold.elapsed.time; 

double  total.after.first.iteration  ■  0.0; 

double  varm.elapsed.time ; 
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//  report  the  benchmark  result* 

DEBUG, INIT(  "RESULTS"  ,  "ool: :report .results"  ); 

//  determine  the  cold  time 

if  (  measurement  *“  REVERSE. TRAVERSAL  ) 

//  the  reverse  traversal  times  are  normalised 
cold.elapsed.time  *  results [0] .normalized.elapsed.time; 

else 

cold.elapsed.time  *  results [0] .elapsed. time; 

//  calculate  the  warm  time 

for  (  int  i  «  1  ;  i  <•  NUM.BEICHMARK. ITERATIONS  ;!♦♦>{ 

//  output  detailed  results  if  the  "RESULTS"  environment  variable  is  set 
//  to  at  least  a  level  of  1  (i.e.  setenv  RESULTS  1) 

DEBUG. OUT (  sprintf(  BUG,  "iteration  X2d  elapsed  time  X.3f  see",  i, 
resulted  -  1]  .elapsed. time  ),  1  ); 
if  (  measurement  FORWARD. TRAVERSAL  )  < 

DEBUG .OUT (  sprintf(  BUG,  "(parts  found  Xd)", 
resulted  -  1]  . num.parts. connected  ),  1  ); 

} 

if  (  measurement  ■■  REVERSE. TRAVERSAL  >  { 

DEBUG. OUT (  sprintf (  BUG,  "(parts  found  Xd  normalized  time  X-3f  sec)”, 
results [i  -  1] .num. part*. connected, 
results d  *  1]  .normalized.elapsed.time  ),  1  ); 

> 

//  add  up  the  elapsed  times  (for  all  iterations  after  the  first) 
if  (i  !-  1) 

if  (  measurement  «■  REVERSE. TRAVERSAL  ) 

total.af ter. first. iteration  +■  results [i  -  1] .normalized.elapsed.time; 

else 

total.af ter .first .iteration  +»  results [i  -  1] . elapsed  time; 

> 

uarm.elapsed.time  »  total. after.first. iteration  /  (  MUM.BENCHMARK. ITERATIONS  -  1  ) 

//  output  a  quick  summary  of  all  the  times 
for  (  i  »  1  ;  i  <»  HUM.BEHCBMIRK. ITERATIONS  ;  i++  )  < 
printf(  "  X7.3f",  results [i  -  1] . elapsed. time  ); 

} 

//  output  the  cold  and  warm  results 
printf (  "  C  X7.3f",  cold.elapsed.time  ); 
printf (  "  W  X7 . 3f \n" ,  varm.elapsed.time  ) ; 

} 

iiiiiiiiimiimmiiiiiiiiiiiiiimiiimiimimmiiiiimimiii 

void  ool :: reverse .traversal.measure(  ) 

< 

DEBUG. INIT(  ”001"  ,  "ool :: reverse. traversal .measure"  ); 

DEBUG. OUT (  "entering",  1  ); 

Ool Part  edb.part; 
int  part .id; 

char  query. expression[80] ; 
int  status; 

//  run  the  benchmark  iterations 

for  (  int  i  -  1  ;  i  <-  BUM. BENCHMARK . ITERATIONS  ;  i++  )  { 

//  start  the  timer 
stopsatch  traversal. timer; 

ITASCA:  :cosoait(  );  //  start  a  nes  transaction 

traversal.timer . start (  ); 

for  (  int  j  «  1  ;  j  <-  NUM.REVERSE.TRAVERSAL  ;  j++  )  < 
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//  lookup  a  rondos  part 

port. id  »  (int)roll(  1,  (long)num.parts ,  stream  >; 

//  lookup  tho  port  oith  on  Itoseo  query 

sprintf  (  query .expression,  "(oquol  id  Xd)",  port. id  ); 

stotua  »  OolPart: : select Any (  tdb.part, 

QUERY. EXPRESSION ,  quory.orproooion, 

END.iRGS  ); 

if  (  (  stotua  !•  ITASCA. OK  )  1 1  (  db.port  —  NULL  )  >  { 

fprintf(  atdorr,  "ERRORfool:  : raver ae.tr ever aal.measura]  Itoseo  foilod  11 
"  query \n"  ); 

ITASCA: : abort (  ); 

ITASCA : : dia  connsct (  )  ; 
oxit(  1  ); 

> 

//  find  oil  tha  parts  which  connsct  to  this  port  (up  to  TRAVERSAL .DEPTH) 
results [i  -  1] .nun.ports. connected  ■  db.part->reverse.travsrsal(  0  ); 

DEBUG. OUT (  sprintf (  BUG,  "found  Xd  ports  uhich  connsct  to  port  Xd", 
results [i  -  1]  . num.parts. connected ,  (int)db_port->id  ),  2  ); 

//  the  application  must  remove  transient  memory  ossoeiotad  sith 
//  persistence  objects 
delete  db.port; 

} 

//  stop  the  timer  and  save  the  elapsed  time 
ITASCA : : commit (  ) ; 

results [i  -  1] . elapsed. time  ■  traversal. timer .stop(  ); 

//  the  results  for  the  reverse  traversal  are  normalized  so  that  they 
//  may  be  compared  to  the  forward  traversal 

//  (multiply  the  time  by  num.nodes.visited.in.forward. traversal/*, 

//  share  H  is  the  number  of  nodes  actually  visited  in  the  reverse 
//  traversal) 

results [i  -  1] .normalised. elapsed. time  ■  results [i  -  1] . elapsed. time  * 

(  (double)num_nodes_ visited. in.forvard. traversal  / 

(double) results [i  -  1] .num.parts. connected  ); 

} 

//  report  the  benchmark  results 
report  _  results  (  RE  VERS  E  _  TRAVERS Al,  )  ; 

> 

////////////////////////////////////////////////////////////////////// 

2.1.9  params.hh 

The  source  code  for  th'  f.:  3  params.hh  is  listed  below.  This  file  defines  several  constant  parameters  which 
the  OOl  benchmark  implementation  requires. 

•ifndef  ..PARAMS.HH 
•define  ..PARAMS.HH 
/* 

•••••  •••••  • 

«  *  *  *  •• 

•  •  •  •  •  • 

•  *  •  •  •  ITASCA 

•  •  •  •  • 

•  •  •  •  • 

•*•••  *««*•  *«««* 

"Object  Operations  Benchmark"  R.G.G.  „j-  .-f  3d  J.  Skeen 

Sun  Microsystems 
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ACM  Transactions  on  Database  Syitui  Vol .  17,  So .  1,  March  1992,  Pages  1-31. 

params.hh 

Air  Forca  Inatitnta  of  Technology 
Tlaothy  J.  lalloraa 
26  Jul  1993 

Revisions : 

21  Aug  1993  -TJH-  Added  Itasca  specific  parameter  "HUM. COMMIT" .  This 

parameter  specifies  the  n unbar  of  parts  (connections) 
which  sill  be  created  daring  the  load  operation  before 
a  commit  is  done. 

*/ 

//  definition  of  the  number  of  connections  for  sach  part  (3  for  001) 

•define  HUM.CONNECTIONS  3 

//  definition  of  the  depth  of  the  forsard  and  reverse  traversals  (7  for  001) 
•define  TRAVERS  AL.DEPTH  7 

//  definition  of  the  locality  of  reference  value  (1  for  001  shieh  naans  that 
//  90X  of  the  connections  are  randomly  selected  among  the  IX  of  the  parts 

//  which  are  closest  (in  tens  of  part  id) ,  and  the  rest  of  the  connections 
//  are  made  to  any  randomly  selected  part. 

•define  LOCAL ITY.OF.REFEREHCE  1 

//  definitions  to  create  a  10  year  range  of  dates 

•define  JAN.1.1980  31SG60800 

•define  JAM.1.1990  631170000 

//  001  benchmark  parameters 

•define  MUM, BENCHMARK  .ITERATIONS  10 

•define  NUM.LOOKUP  1000 

•define  HUM.P0RWARD  .TRAVERSAL  1 

•define  NUM.REVERSE.TRAVERSAL  1 

•define  HUM. INSERT  100 

//  Itasca  parameters 

•define  NUM.COMMIT  100 

•endif  _ PARAMS.HH 


2.1.10  part.hh 

The  source  code  for  the  file  part.hh  is  listed  below.  This  file  defines  function  prototypes  for  the  C++  class 
methods  of  the  OolPart  class.  The  OolPart  class  is  fully  defined  in  the  file  schema.hh.  The  part.hh  file 
is  included  into  the  file  schema.hh  during  the  definition  of  the  OolPart  class.  Itasca  Customer  Support 
recommended  including  definitions  of  C++  class  methods,  rather  than  just  adding  them  directly  to  the 
schema.hh  file  (as  is  recommended  in  the  Itasca  documentation  [3])  to  simplify  maintenance. 

•ifndaf  ..PART.HH 
•define  ..PART.HH 
/• 


•••*•  ••«••  • 

•  •  •  •  *• 

•  •  •  •  •  • 

•  •  •  •  • 

•  •  •  •  « 

•  •  •  •  • 

•••••  »••••  ••»•• 


ITASCA 


"Object  Oparations  Banchmark"  R.Q.G.  Cattail  and  J.  Skaan 

Son  Microsystama 

ACM  Transactions  on  Databasa  Systams  Vol.  17,  No.  1,  March  1992,  Pages  1-31. 


part.hh 

Air  Forca  Institute  of  Technology 
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Timothy  J.  Halloran 
26  Jul  1993 

This  file  only  contains  the  function  prototypes  for  the  part  class 
methods.  This  fils  is  included  by  tha  "schema. hh"  file  (shich  was 
antonatically  generated  by  Itasca) .  Use  of  this  f ila  assures  that  tha 
changes  necessary  to  tha  "schasMt.hh”  file  are  not  lost  each  tine  it  is 
regenerated . 

•/ 

void  set.OolPartC  int  nes.id,  char  enes.type,  int  nes.z,  int  nas.y,  long  nes.build  ); 
void  clear _0olPart(  ) ; 

int  f orsard. traversal C  int  current. level  ); 
int  reverse. traversal (  int  current.level  ) ; 
tandif  ..PiHT.HH 

2.1.11  part.ee 

The  source  code  for  the  file  part.ee  is  listed  below.  This  file  implements  the  non-persistent  methods  for  the 
OolPart  class.  The  OolPart  class  is  fully  defined  in  the  file  schema.hh. 

/* 

•«•••  Mill  • 

•  •  *  • 

•  •  •  •  •  • 

•  99  99  ITASCA 

9  9  9  9  9 

9  9  9  9  9 

99999  99999  99999 

"Object  Operations  Benchmark”  R.G.O.  Cattail  and  J.  Skeen 

Son  Microsystems 

ACM  Transactions  on  Database  Systems  Vol .  17,  Mo.  1,  March  1992,  Pages  1-31. 
part.ee 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
26  Jul  1993 
*/ 

9include<stdlib .h> 

9include<debog . hh> 

9include"schema .hh" 

9include"nullproc .hh" 

9include"params . hh” 

////////////////////////////////////////////////////////////////////// 
void  OolPart: : set.OolPartC  int  nes.id,  char  *nes.type,  int  nes.z,  int  nas.y, 
long  nes.build  ) 

< 

DEBUG.  Ill  IT  (  "PART"  .  "OolPart :  :set.OolPart"  ); 

DEBUG. OUT (  "entering”,  1  ); 

id  ■  nes.id; 
type  ■  nes.type; 
z  ■  nes.z; 
y  •  nas.y; 

build  »  (int)nes.build;  //  int  and  long  are  both  4  bytes  on  sun4 

} 

////////////////////////////////////////////////////////////////////// 

void  OolPart: : clear .OolPart (  ) 

< 

DEBUG.UITC  "PART"  ,  "OolPart ::  clear  .OolPart"  ); 

DEBUG. OUTC  "entering",  1  ); 
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OolConnection  «e; 

I  boo lean  delated; 

DEBUG. OUT (  aprintf!  BUS,  "c leering  pert  Xd" ,  (Int)ld  ),  2  ); 

DEBUG. OUT (  eprintf (  BUG,  "deleting  the  Id  \"connected_to\H  connections", 
connect edTo->size(  )  ) ,  2  ) ; 

//  delete  ell  the  connections  iron  this  pert  to  other  perts 

{ 

OolConnactionSet Iterator  iterator (  this->connectedTo  ); 
while  (  c  «  iterator (  )  )  < 

c->clear_OolConnection(  );  //  clear  the  connection  for  delete 

c->deleteObject(  Adulated  ) ; 
if  (  ‘deleted  )  { 

fprintf(  stderr,  ”EKKOE[OolPart : : clear. OolPart]  Itasca  failed  delete\n"  ); 
ITASCA : ; abort (  ); 

ITASCA : : disconnect (  ) ; 
exit(  1  ); 

> 

> 

> 

DEBUG. OUT (  sprintf(  BUG,  "deleting  the  Xd  V'connected.fron\"  connections", 
connectedFroa->size(  )  ) ,  2  ) ; 

//  delete  all  the  connections  to  this  part  froa  other  parts 

{ 

OolConnectianSetlterator  iterator (  thia-> connected? ron  ) ; 
while  (  c  •  iterator (  )  )  { 

c->clear. Do IConn action!  ) ;  //  clear  the  connection  for  delete 

c->deleteObject(  Adeleted  ); 
if  (  ! deleted  )  { 

fprintf  (  stderr,  "ERROR [OolPart: : clear. OolPart]  Itasca  failed  deleteW  ); 
ITASCA : : abort (  ); 

ITASCA: ; disconnect (  )  ; 
exit!  1  ); 

> 

> 

> 

} 

////////////////////////////////////////////////////////////////////// 

int  OolPart: : forward. traversal!  int  current .level  ) 

< 

DEBUG.  Ill  IT!  "PART"  ,  "OolPart:  :forward.traversal"  ); 

DEBUG. OUT!  "entering",  1  ); 

OolConnection  *c; 

DEBUG. OUT!  sprintf (  BUG,  "part  id  X«d  (level  Xd>", 

(int)this->id,  current. level  ) ,  2  ) ; 

//  call  the  required  null  procedure 
null.procedure(  thls->x,  this->y,  thia-itype  ); 
int  nun.parta. connected  »  0; 
if  (  current. level  <  TRAVERSAL .DEPTH  )  { 

OolConnectianSetlterator  iterator!  this->connectedTo  ) ; 
while  (  c  ■  iterator!  )  )  { 

non.parta .connected  +»  c->to->forward. traversal!  currant. level  el); 

> 

} 

return  (  nun. part a. connected  el); 

> 

iiiiiiiiiiiiiiiiimiiiiiiiiiiiumiiiiiiiimimmiiiiimimmi 

int  OolPart: : reverse.traversal (  int  current.level  ) 

DEBUG. HIT!  "PART"  .  "OolPart  :  :reverse.truversal"  ); 

DEBUG. OUT!  "entering",  1  ); 

OolConnection  *c; 
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DEBUG. OUT (  aprintf (  BUG.  "part  id  X6d  (laval  Xd)'\ 

(int)thia->id,  currant.laval  ).  2  ); 

//  call  til*  raquirad  noil  procadura 

null .procadura (  thia->x,  thi»->y .  thia->typa  ); 

lnt  nun.parta.coonactad  ■  0; 

if  (  currant.laval  <  TEA VERS AL.DEPTH  )  < 

OolConnactlonBat Iterator  iterator (  thia->connactadFroa  ) ; 
ahila  (  c  ■  iterator(  )  )  { 

noa.parta.coanacted  +■  c->f ron->ravar»a_travur»al (  current. level  ♦  1  ) ; 

> 

J 

return  (  nun.parta. connected  ♦  1  ) ; 

> 

////////////////////////////////////////////✓///////////////////////// 


2.1.12  schema. hh 

The  source  code  for  the  file  schema.hh  is  listed  below.  This  file  contains  the  definitions  of  all  the  C++  classes 
which  are  persistent  in  the  Itasca  database.  The  file  was  automatically  generated  by  the  Itasca  Dynamic- 
Schema  Editor.  The  file  includes  the  files  connect.hh  and  part.hh  which  define  the  non-persistent  C++ 
methods  for  the  Ool  Connection  and  OolPart  classes.  This  file  does  not  create  the  schema  in  the  Itasca 
database,  the  file  dbschema.dmp  is  used  to  to  that.  The  dbschema.dmp  file  must  be  loaded  into  Itasca  prior 
to  any  C++  program  compiled  with  this  file  to  execute  properly. 

II 

//  achama.hh 

II 

II  Tuu  Aug  17  16:00:26  1993 
II 

II  Copyright  1992  ITASCA  Syateaa,  Inc. 

// 

//  THIS  FILE  HAS  AUTOMATICALLY  GENERATED. 

//  DO  HOT  EDIT  THIS  FILE. 

t include  "ituacacpp.h” 

claaa  BanchnarkClaaaObjact ; 
claaa  Benchmark; 

claaa  OolAbatractConnactionClaaaObjact ; 
claaa  OolAbatractConnaction; 
claaa  OolPartClaaaObjact; 
claaa  OolPart; 

claaa  OolAbatractConnactionSat Attributa ; 
claaa  OolConnactionClaaaObjact ; 
claaa  OolConnaction; 
claaa  OolPart Attributa; 

claaa  BancbmarkClaaaObjact  :  public  virtual  ItaacaClaaaObjact  { 
public : 

II  Attributaa  and  Mathoda 
//  Conatructora 

BanchaarkClaaaObjact(conat  ItaacaOID  tneu.oid) 

:  ItaacaClaaaObjact (nav.oid,  "BENCHMARK")  < 
claaaOb j actOidCtor (nau.oid ,  "BENCHMARK") ; 

> 

BanchnarkClaaaOb j act () 

:  ItaacaClaaaObjact (HULL,  "BENCHMARK")  { 
claaaOb jactetor ("BENCHMARK") ; 

} 
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>; 


ItascaClassSetIter(BenchmarkClassObjectSetIterator ,  BanchmarkClassObject) ; 


elaaa  Benchmark  :  public  virtual  ItaacaObjact  < 
public: 

//  Ovarrida  function*  (handlad  in-lina  via  macros) 
ItaacaOvarridaCopyObjact (Banchaark) 

ItascaOvsrr  idaCansr icVer sion (Benchmark) 
ItascaOverrideMakoVersion(Benchmark) 
ItascaOvorrideObjectVarsion(Benchmark) 
ItaacaOvarridaParaatVaraion(Banchnark) 

ItaacaOvarr idaCbildVaraiona (Benchmark) 

//  Salact  function*  (handlad  in-lina  via  aacroa) 
ItascaOvorrideSalectAnySimple (Benchmark ."BENCHMARK") 
ItaacaOvarridaSalact AnyStar (Banchaark , "BENCHMARK" ) 

It aacaO varridaSalactSiapla (Banchaark . "BENCHMARK" ) 

It aa  caOverr idaSalactSt ax (Benchmark , "BENCHMARK" ) 

//  Attributaa  and  Mathoda 

//  Constructor  uhich  creates  a  new  instance  in  ITASCA  DB. 
Benchmark () 

:  ItaacaObjact (HULL,  "BENCHMARK")  { 
itaacaOb j  act Ctor ( "BENCHMARK" ) ; 

} 

//  Constructor  uhich  does  NOT  Croats  a  nan  instance. 
Benchmark (const  ItaacaOID  tnav.oid) 

:  ItaacaObjact (nav.oid ,  "BENCHMARK")  { 
itascaObjectOidCtor (nav.oid, "BENCHMARK”) ; 

> 

//  Copy  constructor - 

Benchmark (const  Benchmark  tsrc.obj) 

:  ItaacaObjact (HULL,  "BENCHMARK”)  { 
objStatua  *  src.obj . basaCopyObjact (itasca.oid) ; 

>; 

>; 


ItascaClassSetlter (BenchmarkSet Iterator ,  Banchaark) ; 


class  Ool Abstract Connect ionClas30bj act  :  public  virtual  BanchmarkClassObject  < 
public : 

//  Attributes  and  Methods 
//  Constructors 

OolAbstractConnectionClassObject(const  ItaacaOID  tnev.oid) 

:  BenchmarkClassObj act (nav.oid) , 

ItascaClaasObject (nav.oid,  "OOl-ABSTRACT-COHNECTIOH")  { 
classObjactOidCtor (nav.oid ,  "OOl-ABSTRACT-COHHECTIOH") ; 

} 

OolAbstractConnoctionClassObjoct () 

:  BenchmarkClassObj act (NULL) , 

ItascaClaasObject (HULL,  "OOl-ABSTRACT-COHHECTIOH")  { 
dassObjactCtor  ("001- ABSTRACT-CONNECTION") ; 

> 


>; 
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ItascaClassSetIter(OolAbstractConn*ctionClassObjectS*tIterator ,  OolAbstractConnectionClassObject) ; 


class  Oo lib* tract Connect ion  :  public  virtual  Benchmark  < 
public : 

//  Ovarrida  functions  (handled  in-lina  via  macro*) 

ItascaOverrideCopyObject (OolAbstractConnection) 

ItascaOverrideGenericVarsion(Ool Abstract Connect ion) 

ItascaOverrideMakeVersion(OolAbatractConnection) 

ItascaOverrideObjectVersion(OolibstractConnection) 

ItaacaOverridaParentVarsion(OolAbstractConnection) 

ItascaOverridaChildVarsions(OolAbstractConnection) 

//  Salact  functions  (handled  in-line  via  macros) 

Itasca0verrideSeleetAnySimple(0olAbstractConnection,"001-ABSTRACT-C0NNECTI0M") 
ItascaOvarridaSalactin yStar (OolAbstractConnection, "OOl-ABSTRACT-CONNECTION") 
ItascaOverrideSelectSimple(OolAbstract Connection, "OOl-ABSTRACT-CONNECTION") 
ItascaOverrideSelectStar  (OolAbstractConnection,  "OOl-ABSTRACT-CONNECTION") 

//  Attributes  and  Methods 

//  Constructor  which  creates  a  new  instance  in  ITASCA  P8. 

Ool Abstract Connection ( ) 

:  Benchmark (HULL) , 

It as  caOb j  act ( HULL ,"001 - ABSTRACT-CONWECTIOH " )  { 
itascaObjectCtorC'OOi-ABSTRACT-COHHECTIOH") ; 

> 

//  Constructor  which  does  HOT  create  a  new  instance. 

OolAbstract Connection (const  ItascaOID  knew.oid) 

:  Benchmark (new.oid) , 

ItascaObject (new.oid, "OOl-ABSTRACT-CONNECTION")  { 
itascaOb jectOidCtor (new.oid, "001-ABSTRACT-C0HHECTIQN" ) ; 

} 

//  Copy  constructor. 

OolAbstractConnection(const  OolAbstractConnection  fcsrc.obj) 

:  Benchmark (HULL) , 

ItascaObject(NULL , "OOl-ABSTRACT-CONNECTION")  { 
objStatns  ■  src.obj .baseCopyObject(itasca.oid) ; 

>; 

>; 


ItascaClassSetlter (OolAbstractConnectionSetlterator ,  OolAbstractConnection) ; 


class  OolPartClassObject  :  public  virtual  BencbmarkClassObject  { 
public : 

//  Attributes  and  Methods 
//  Constructors 

OolPartClassObject (const  ItascaOID  Anew.oid) 

:  BenchmarkClassObj ect (new.oid) , 

ItascaClassObject (new.oid,  "001-PART")  { 
dassObjectOidCtor (new.oid,  "001-PART") ; 

> 

OolPartClassObj  ect ( ) 

:  BenchmarkClassObj ect (HULL) , 

ItascaClassObject (NULL,  "001-PART")  { 
classObjectCtor ("001-PART") j 
> 
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>; 


ItascaClassSetIter(OolPartClassObjectSetIterator ,  OolPartClassObject) ; 


ItascaDeclareSetAttribute(OolAbstractConnection ,  OolAbstractConnactionSetAttribute) ; 

claaa  OolPart  :  public  virtual  Banchnark  { 
public : 

//  Ovarrida  functions  (handled  in-lina  via  macros) 

ItaacaO varr idaCopyOb j  act (OolPart ) 

ItaacaOvarr idaGaaaricVaraion (OolPart ) 

ItascaOverrideMakeVersion(OolPart) 

It aacaOvarr idaOb j act Vara ion ( Oo IPart ) 

ItaacaOvarrideParentVaraion( OolPart) 

ItaacaOvarridaChildVaraiona(OolPart) 

//  Salact  functiona  (handled  in-lina  via  aacroa) 

It aacaOvarr ideSelect AnySimple ( Oo IPart  ,"001 -PART" ) 

ItaacaOverrideSelectAnyStar (OolPart , "001-PART") 

ItascaOverrideSelectSimple (OolPart  ."001-PART") 

ItaacaOvarridaSalactStar (OolPart, "001-PART") 

//  Attributaa  and  Mathoda 

OolAbatractConnectionSet Attribute  connactadTo ; 

//  Inverse  of  \ 

OolAbatractConnectionSet Attribute  connect edFrom ; 

//  Inverse  of  \ 

Itascalnt  build; 

Itaacalnt  y; 

Itascalnt  x; 

ItascaString  type; 

Itascalnt  id; 

//  Constructor  which  creates  a  new  instance  in  ITASCA  DB. 

OolPart () 

:  Benchmark (NULL) , 

Itas  caOb j  act (NULL ,"001 -PART” ) , 

connectedTo("C0NHECTED-T0",  (ItascaObjact  *)tbis), 
connectedFromO'CONNECTED-FROM",  (ItascaObjact  *)thia), 
build ("BUILD",  (ItascaObjact  *)thia), 
y("T",  (ItascaObjact  *)this) , 
r("X",  (ItascaObjact  *)this) , 
typaC’TTPK",  (ItascaObjact  *)this) , 
idO'ID",  (ItascaObjact  *)this)  { 
itaaca0bjactCtor("001-PART") ; 

} 

//  Constructor  which  does  HOT  create  a  new  instance. 

OolPart (const  ItascaOID  Anaw.oid) 

:  Benchmark (new.oid) , 

ItascaObjact (naw.oid, "001-PART"), 

connectedTo("CONNECTED-TO",  (ItascaObjact  *)this), 

connect adFrom( "CONNECTED -FROM" ,  (ItascaObjact  *)this), 

build("BUILD",  (ItascaObjact  *)this) , 

y("Y”,  (ItascaObjact  *)this) , 

x("X",  (ItascaObjact  *)this) , 

type ("TYPE" ,  (ItascaObjact  *)this) , 

id("ID",  (ItascaObjact  a)this)  { 

itascaOb jectOidCtor (naw.oid , "001-P ART" ) ; 

> 

//  Copy  constructor. 
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OolPart (const  OolPart  Asrc.obj) 

:  Benchmark (NULL) , 

ItaacaOb j act (NULL ,"001 -PART" )  { 
objStatus  ■  src.obj . baseCopyObject(itasca.oid) ; 
>; 

•include "part .hh" 

>; 


ItascaClassSetIter(OolPartSetIterator ,  OolPart) ; 


class  OolConnactionClassObject  :  public  virtual  OolAbstractConnectionClassObject  { 
public: 

//  Attributes  and  Methods 
//  Constructors 

OolConnectionClassObject (const  ItascaOID  Anew.oid) 

:  OolAbatractConnectionClassObject (new.oid) , 

BenchmarkClassObj  ect (neu.oid) , 

ItascaClassObject (new.oid,  "001 -CONNECTION")  { 
classObjectOidCtor(neu_oid,  "001-C0NNECTI0N") ; 

> 

OolConnectionClassObject () 

:  OolAbstractConnectionClassObject(NULL) , 

BenchmarkClassObject(NULL) , 

ItascaClassObject (NULL,  "001-C0NHECTI0H")  { 
classObjectCtor ("001-C0NNECTI0N") ; 

> 


>; 


ItascaClassSet Iter (OolConnectionClassObjectSet Iterator ,  OolConnectionClassObject) ; 


ItascaBeclareClassNameAttributeCOolPart ,  OolPart Attribute) ; 

class  OolConnection  :  public  virtual  OolAbstractConnection  { 
public: 

//  Override  functions  (handled  in-line  via  macros) 
ItaacaOverrideCopyObject (OolConnection) 
ItascaOverrideGenericVersion (OolConnection) 
ItascaOverrideMakeVersion(OolConnection) 
ItascaOverrideObjectVersion(OolConnection) 
ItascaOvezrideParentVersion( OolConnection) 

I tascaOverrideChi Id Versions (OolConnection) 

//  Select  functions  (handled  in-line  via  macros) 
Itasca0verrideSelectAnySimple(0olConnection,"001-C0NNECTI0N'') 
ItascaOverrideSelectlnyStar (OolConnection, "001-C0NNECTI0N") 
ItascaOverrideSelectSimple (OolConnection, "001-C0NNECTI0N") 
ItascaOverrideSelectStar (OolConnection, "OOl-CONNECTION") 

//  Attributes  and  Methods 
OolPartAttribute  to; 

//  Inverse  of  \ 

OolPartAttribute  from; 

//  Inverse  of  \ 

Itascalnt  cLength; 

Itas  cast  ring  type; 

//  Constructor  shich  creates  a  new  instance  in  ITASCA  DB. 
OolConnection () 
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:  OolAbstractConnection(NULL) , 

Benchmark (MULL) , 

ItascaOb ject (NULL , "OOl-CONNECTION" ) , 
toC’TO",  (ItascaObject  *)thi«) , 
fromC'FROM",  (ItaacaObjact  *)thia), 
cLengthO'C-LENGTH",  (ItaacaObjact  *)thia) , 
typaCTTPE",  (ItaacaObjact  *)tbia)  ■( 
itaacaObjactCtorC "OOl-CONNECTION") ; 

> 

//  Constructor  which  doaa  NOT  craata  a  naw  instance. 
OolConnection(const  ItaacaOID  tnew.oid) 

:  OolAbstractConnection(new.oid) , 

Benchmark (naw.oid) , 

ItaacaOb j  act (new.oid , ”00 1-CONNECTION" ) , 
toC'TO",  (ItaacaObjact  *)this) , 
fromC'FROM",  (ItaacaObjact  *)this), 
cLengthC'C-LENGTH",  (ItaacaObjact  *)this), 
typaCTTPE",  (ItaacaObjact  *)this)  ■( 
itascaObjectOidCtor(new_oid, "OOl-CONNECTION"); 

> 

//  Copy  constructor. 

OolConnection (const  OolConnection  Asrc.obj) 

:  OolAbstractConnection(NULL) , 

Banchmark(NULL) , 

ItaacaObjact (NULL, "OOl-CONNECTION")  { 
objStatus  =  arc.obj . basaCopyObjact (itasca.oid) ; 

>; 

f include" connect . hh" 

>; 


ItascaClassSetlter (OolConnectionSetlterator ,  OolConnection) ; 


/*  User  defined  keywords  */ 

ItascaImplamentSatAttribute(OolAbstractConnection ,  OolAbstractConnectionSetAttribute) ; 

// 

//  and  of  file  schema. hh 

// 


2.1.13  dbschema.dmp 

The  source  code  for  the  file  dbschema.dmp  is  listed  below.  This  file  contains  Itasca  code,  in  the  Lisp 
programming  language,  which  creates  the  schema  for  the  001  benchmark  in  the  Itasca  database.  This  file 
must  be  run  on  the  Itasca  database  before  the  bench  program  is  executed.  The  file  must  also  be  consistent 
with  the  schema. hh  file,  which  describes  the  database  schema  for  C++  programs  which  use  it. 

(in-pnckago  "ITASCA-USER") 

(moT«-to-priv«te-db  3) 

(def-class  BENCHMARK 

:document  "top  level  object  for  Benchmark  group" 

'.superclasses  (CLASS  ) 

: abstract  T 
:versionable  NIL 
: notify  NIL 
■.methods  NIL 
: class-methods  NIL 
attributes  (  ) 

: class-attributes  (  )) 
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(def-class  OOl-ABSTRACT-COBNECTION 
: document  "Abstract  connection  class  for  tha  001  benctusark . " 
: superclasses  (BENCHMARK  ) 

: abstract  T 
:vsrsionabls  NIL 
: notify  NIL 
: methods  NIL 
: class-methods  NIL 
: attributes  (  ) 

: class-attributes  (  )) 

(def-class  001 -CONNECTION 
: document  NIL 

: superclasses  (OOl-ABSTRACT-CONMECTION  ) 

: abstract  NIL 
: versionabla  NIL 
: notify  NIL 
: methods  NIL 
: class-methods  NIL 

: attributes  (  (TYPE  : inherit -from  NIL 
: document  NIL 
: domain  STRING 
:  init  '••* 

: share  NIL 
: composite  NIL 
: exclusive  NIL 
dependent  NIL 
: unique- value  NIL 
: unique- value*  NIL 
: no-null  T 

) 

(C-LENGTH  : inherit -from  NIL 
: document  NIL 
: domain  INTEGER 
:init  0 
: share  NIL 
.-composite  NIL 
: exclusive  NIL 
: dependent  NIL 
: unique- value  NIL 
: unique- value*  NIL 
: no-null  T 

) 

) 

: class-attributes  (  )) 

(def-class  001-PART 

-.document  "Part  class  for  the  001  benchmark." 

: superclasses  (BENCHMARK  ) 

: abstract  NIL 
: versionabla  NIL 
: notify  NIL 
: methods  NIL 
: class-methods  NIL 

.-attributes  (  (ID  : inherit-from  NIL 

: document  NIL 

: domain  INTEGER 

:init  0 

: share  NIL 

composite  NIL 

-.exclusive  NIL 

: dependent  NIL 
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: unique -valu*  NIL 
: unique-value*  NIL 
: no-noil  T 

) 

(TYPE  : inherit -from  NIL 
: document  NIL 
: domain  STRING 
:init 

:ahare  NIL 
: composite  NIL 
:excluaive  NIL 
: dependent  NIL 
: unique- value  NIL 
: unique- value*  NIL 
: no-null  T 

) 

(Z  : inherit-from  NIL 
: document  NIL 
: domain  INTEGER 
:init  0 
. share  NIL 
:compoaite  NIL 
:excluaive  NIL 
: dependent  NIL 
:unique-value  NIL 
: unique- value*  NIL 
: no-null  T 

) 

(T  : inherit-from  NIL 
: document  NIL 
-.domain  INTEGER 
:init  0 
:ahare  NIL 
:compoaite  NIL 
:excluaive  NIL 
: dependent  NIL 
: unique- value  NIL 
:unique-value*  NIL 
: no-null  T 

) 

(BUILD  : inherit-from  NIL 
: document  NIL 
: domain  INTEGER 
:init  0 
:ahare  NIL 
: composite  NIL 
:excluaive  NIL 
: dependent  NIL 
:unique-value  NIL 
:unique-value*  NIL 
: no-null  T 

) 

) 

: claaa-attributea  (  )) 


(change-attribute  >001 -CONNECTION  ’FROM  : inherit-from  ’NIL 
: document  " Inverts  of  V'connected  to\"" 

: domain  ’001-PART 
: init  ’NIL 
:ahare  NIL 
:compoaite  NIL 
:excluaive  NIL 
: dependent  NIL 
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: unique-value  8 XL 
:uniqu«- value*  NIL 
: no-null  NIL 

) 


(change-attribute  ’OOl-CONNECTION  ’TO  :inharit-from  ’NIL 
:doeum«nt  " Inverse  of  V'connected  fromV'" 

: domain  ’001-PART 
:init  ’NIL 
: share  NIL 
-.composite  NIL 
: exclusive  NIL 
: dependent  NIL 
: unique-value  NIL 
: unique- value*  NIL 
: no-null  NIL 

) 


(change-attribute  ’001-PART  ’ CONNECTED-FROM  :inherit-from  ’NIL 
:  document  "Inverse  of  V’toV"' 

-.domain  ’  (SET-OF  001- ABSTRACT-CONNECTION) 

:init  ’NIL 
: share  NIL 
composite  NIL 
exclusive  NIL 
dependent  NIL 
.-unique- value  NIL 
: unique-value*  NIL 
: no-null  NIL 

) 


(change-attribute  ’001-PART  ’ C08BECTED-T0  : inherit-f rom  ’NIL 
: document  "Inverse  of  V'fromV'" 

: domain  ’(SET-OF  OOl-ABSTRACT-CONNECTION) 

:init  ’NIL 
: share  NIL 
: composite  NIL 
: exclusive  NIL 
: dependent  NIL 
:unique-value  NIL 
:unique-value*  NIL 
:no-null  NIL 

) 


2.2  Matisse  Implementation 

This  section  lists  the  source  code  for  the  Matisse  implementation  of  the  001  benchmark  created  for  this 
research.  The  implementation  was  created  on  version  2.2.0  of  Matisse  using  the  Object-Oriented  Services 
API.  The  Matisse  001  benchmark  source  code  builds  two  executable  programs,  the  bench  program  and 
the  oolschema  program.  The  source  files  in  this  implementation  are  shown  in  Figure  2.  The  files  debug. hh. 
dice.hh,  dice.cc,  pmmlcg.h,  pmmlcg.c,  stopwtch.hh,  and  stopwtch.cc  are  not  listed,  because  they  were  de¬ 
scribed  (with  a  full  source  code  listing)  in  (2).  The  following  subsections  list  the  source  code  for  the  other 
files  shown  in  Figure  2. 

2.2.1  Makefile 

The  Makefile  for  the  Matisse  001  benchmark  source  code  is  listed  below. 
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Matisse 

00 1  Benchmark 

Implementation 

Directory 


—  Makefile 

—  bench. cc 

—  connect,  hh 

—  connect.cc 

—  debug.hh 

—  dice.hh 

—  dice.cc 

—  macros. hh 

—  nullproc.hh 
— nullproc.cc 

—  ool.hh 

—  ool.cc 

—  oolschema.cc 

—  params.hh 
— part.hh 

—  part.cc 

—  pmmlcg.h 
— pmmlcg.c 
— stopwtch.hh 

—  stopwtch.cc 

Figure  2:  Matisse  001  Benchmark  Source  Code  Files 
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MATISSE.PATH-I (MTS. ROOT) 

CCC-CC 

tttllKttUtlltMMIIHMttmttlllHtMUmtimtllltmittMtHMIl 

•  If  debug  output  is  desired  uncomment  the  "CCFLAGS"  dsf  inition  sith 
t  "-DDEBOG"  in  it.  Only  ons  dsf inition  should  bs  uncosnsntsd. 

»CCFLAGS*-DDEBUG  -g 
CCFLAGS* 

••tMtsssstssttttstsssttsfsstttssstttsttttsitstMissssf  sttsssssttttsts 

LDFL AGS*-L$ (MATISSE. PATH ) / lib  -Bststic 
IRCLODES— I.  -1$ (MATISSE.P ATB) / includs 
DE_LIBS*-lmatisseDE  -lbsdanlloe 
DS .LIBS* -Inst issaOS  -lbsdnslloc 

nil:  bsnch  oo Is chans 

.e.o: 

t(CCC)  $ (CCFLAGS)  t(IMCLODES)  -c  «< 

•cc.o: 

t(CCC)  $ (CCFLAGS)  $( INCLUDES)  -c  t< 
pmmlcg.o:  pmmlcg.o  pomlcg.h 
dica.o:  dics.cc  dabug.hh  dico.hh  pomlcg.h 
stopstch.o:  stopvtch.cc  dabug.hh  stopstch.hh 
nullproc.o:  nullproc.ec  dico.hh 

part.o:  psrt.ee  dabug.hh  macros. hh  nullproc.hh  ool.hh  parsms.hh  part.hh 

connect. o:  connact.cc  connect. hh  dabug.hh  macros. hh  ool.hh 

ool.o:  ool.ee  connect. hh  dabug.hh  dico.hh  macros. hh  nullproc.hh 
ool.hh  params.hh  part.hh  stopvtch.hh 

bench. o:  banch.cc  dabug.hh  macros. hh  ool.hh 

bench:  bench . o  ool.o  part.o  connect. o  nullproc.o  stopstch.o  dica.o  pmmlcg.o 
t(CCC)  t(LDFLAGS)  -o  bench  \ 

bench. o  ool.o  part.o  connect. o  nullproc.o  stopstch.o  dica.o  pmmlcg.o  \ 
t(DE.LIBS) 

oolschema.o:  oolschama.cc  dabug.hh  macros. hh 

oolschoma:  oolschema.o 

t(CCC)  t(LDFLAGS)  -o  oolschoma  \ 
oolschema.o  \ 
t(DS.LIBS) 

clean: 

rm  -f  *.o  oolschoma  bench 

2.2.2  bench.cc 

The  source  code  for  the  file  bench.cc  is  listed  below.  This  file  provides  a  driver  for  the  benchmark.  It  consists 
of  a  main  program  which  connects  to  the  Matisse  database,  then  performs  the  benchmark  operation  specified 
on  the  command  line. 

/* 
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•  •  »  •  •  • 

•  •  •  •  •  MATISSE 

•  •  •  •  • 

•  •  •  •  • 

•••«•  ••••«  •«••• 

"Object  Operation*  Benchmark"  B.G.O.  Cattail  and  J.  Skaan 

Son  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  Mo.  1,  March  1992,  Pago*  1-31. 
banch.cc 

Air  Force  Institute  of  Technology 
Tiaothy  J.  Bailor  an 
IS  Jul  1903 

This  prograa  performs  all  the  banehaark  aeaauraaants  for  the  001  banehaark. 

The  following  banehaark  operations  are  supported:  database  creation  (and 
load),  lookup,  forward  traversal ,  reverse  traversal,  insert,  and  database 
clear  (and  destroy) . 

Revisions: 

22  Aug  1993  -TJH-  Changed  out  random  nuaber  generator. 

•/ 

(include<natisse.h> 

•lnclude<stdio . h> 

•include<stdlib -h> 

•include<string  .h> 

Sinclude  <debug .  hh> 

•include"ool . hh" 

•include "aacros . hh” 

•define  TRUE  1 
•define  FALSE  0 

iimnimmimniimimiiimiiiiimiimmiimiimiiiimii 

aain(  int  arge,  char  eeargv) 

< 

DEBUG. IH IT (  "MAIM"  ,  "aain”  ): 

DEBUG. OUT (  "entering”,  1  ); 

HtDatabase  db; 

//  check  the  command  line  arguments 
if  (  arge  <  6)  { 

fprintf(  stderr,  "bench  [operation]  [server]  [database]  " 

" [•  of  parts]  [random  stream] \n"  ) ; 
return  1;  //  exit  the  program 

} 

char  "operation  ■  argv[l] ; 

if  (  !(  !strcap(  operation,  "load"  )  II  !strcap(  operation,  "lookup"  )  II 
!strcap(  operation,  "ftrav"  )  II  !strcnp(  operation,  "rtrav"  )  II 
!strcap(  operation,  "insert"  )  II  !strenp(  operation,  "clear"  )  )  )  { 
fprintf(  stderr,  ”ERR0R[aain]  the  operation  must  be  \”load\",  \Hlookup\",  " 
"\"ftrav\",  \"rtrav\",  \"insert\",  or  \”dear\"\n"  ); 
return  1;  //  exit  the  prograa 

} 

char  edb.server  *  argv[2] ; 

char  edb.naae  •  argv[3] ; 

int  nua.parts  ■  atoi (  argv[4]  ); 

if  (  (  nua.parts  !»  20000  )  U  (  nua.parts  !»  200000  )  ) 

fprintf(  stderr,  "HARM IMG [aain]  the  nuaber  of  parts  is  not  20,000  or  200,000\n"  ); 
int  streaa  ■  atoi(  argv[6]  ); 


if  (  (  itT*u  <  1  )  1 1  (  itrui  >  100  )  )  { 
f printf (  atdarr ,  "ERROR [main]  th«  atraaa  ia  not  batuaan  1  ud  100\n"  >; 
rat ora  1;  //  azit  tha  prograa 

> 

//  output  a  prograa  titla 

print f  (  "001  BENCHMARK  [MATISSE]  Air  Forea  laatituta  of  TachnologyW  )  ; 
print f(  "  MATISSE  databasa  \"Xa\"  on  Xa  with  td  parta  (raadoa  atraaa  Xd).\n", 
db.naaa,  db.aarvar,  aua.parta,  atraaa  ); 

//  connact  to  tba  MATISSE  databaaa 

CHECK. STATUS (  HtConnact (  Adb,  db.aarvar,  db.aaaa, 

3  /*  priority  */, 

6  /a  wait  a/, 

FALSE  /*  ao  aatTiaaOaly  */  ) , 

"ERRORCaain]  unabla  to  connact  to  MATISSE  databaaa"  ) ; 

//  aat  tba  eoatazt  (ao  that  only  ona  databaaa  ia  aalactad) 

CHECK .STATUS (  NtSatContaxt (  db  ) , 

"ERR0R[aain]  unabla  to  aat  contazt  to  opanad  databaaa"  ) ; 

//  craata  a  aingla  001  banchaark  objact 
ool  ool .banchaark (  nua.parta,  atraaa  ); 

//  par fora  tba  banchaark  aaaauraaant  raquaatad  on  tha  rnaaaml  lina 
if  (  !atrcap(  oparation,  "load"  )  )  { 
printf (  "  L0AD\n"  ); 
ool .banchaark. load (  ); 

> 

alaa  if  (  !atrcap(  oparation,  "lookup”  )  )  { 
printf (  "  L00KUP\n"  )j 
oo  1  .banchaark. lookup ^naurat  ); 

] 

alaa  if  (  !atrcap(  oparation,  "ftrav"  )  )  { 
printf (  "  FORWARD  TRAVERS AL\n"  ); 
ool. banchaark. forvard_travaraal.aaaanr a (  ); 

> 

alaa  if  (  !atrcap(  oparation,  "rtrav"  )  )  < 
printf (  "  REVERSE  TRAVERS AL\n"  ); 
ool. banchaark. ravaraa.travaraal.aaaanra(  ); 

} 

alaa  if  (  !atrcap(  oparation,  "inaart"  )  )  { 
printf (  "  IHSERTXn"  ); 
ool. banchaark. inaart jaaaauraC  ); 

} 

alaa  if  (  !atrcap(  oparation,  "claar”  )  )  { 
printf (  "  CLEAR\n"  ); 
ool. banchaark . claar (  ); 

} 

//  raaat  tha  contazt  and  cloaa  tha  databaaa 
CHECK.STATTJSC  MtHoContazt(  ), 

"ERRORCaain]  unabla  to  raaat  contazt"  ) ; 

CHECK. STATUS(  MtDiaconnact (  db  ), 

"ERRORCaain]  unabla  to  cloaa  tha  MATISSE  databaaa"  ); 

} 

////////////////////////////////////////////////////////////////////// 

2.2.3  connect,  hh 

The  source  code  for  the  file  connect.hh  is  listed  below.  This  file  defines  the  non-persistent  methods  to  be 
used  with  the  connection  class. 

•ifndaf  _ CONNECT.HH 
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Mafias  ..COBNECT.BB 

/• 

•M»t  •••••  • 

•  •  •  •  M 

•  •  •  *  •  # 

•  •  •  •  •  MATISSE 

•  •  •  •  • 

•  •  •  •  • 

MtM  MM#  ••••• 

"Object  Oparatioaa  Benchmark”  R.G.G.  Cattail  and  J.  Skeen 

San  Microsystems 

ACM  Transaction*  on  Database  Systems  Yol.  17,  lo.  1,  March  1992,  Pages  1-31. 
conaact . hh 

Air  Force  Institute  of  Technology 
Tinothy  J.  Balloran 
02  Aug  1993 

*/ 

void  uev. connection (  MtXay  nav.fr on,  HtKay  nev.to,  char  *nav.type,  int  nav. length  ); 
fendif _ CONNECT. HH 


2.2.4  connect.cc 

The  source  code  for  the  file  connect.cc  is  listed  below.  This  file  implements  the  non-persistent  methods  for 
the  connection  class. 

/• 

•••••  ••«••  • 

#  •  •  #  •• 

•  •  •  #  »  • 

•  •  •  «  •  MATISSE 

•  •  •  #  • 

•  •  #  #  # 

••••«  ••••«  <••*• 

"Objact  Operations  Benchmark"  R.G.G.  Cattail  and  J.  Skaan 

Son  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  No.  1,  March  1992,  Pages  1-31. 
connect . cc 

Air  Force  Institute  of  Technology 
Timothy  J.  Balloran 
02  Aug  1993 

Revisions : 

16  Sap  1993  -TJB-  Changed  nsa  of  several  API  functions  to  Mt_*  functions, 

(shich  use  OIDs,  rather  than  character  strings)  from 
Mt*  functions.  This  vas  recommended  by  MATISSE  to 
improve  performance. 

*/ 

•inelude<matisae.h> 

•include<stdlib  .h> 

•indude<debug .  hh> 

•include" connect .  hh" 

•include" ool .hh” 

•include"macros .hh" 

////////////////////////////////////////////////////////////////////// 

void  nev.connection(  MtKey  nev.from,  MtKey  nev.to ,  char  enev.type,  int  nev.length  ) 
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{ 

DEBUG. II IT (  "COHHECTIOI"  ,  "new.connaction"  ); 

DEBUG. OUT (  "entering" ,  1  ); 

MtKay  nav. connection; 

CHECK. STATUS (  Ht.CreataObjact (  Anas. connection,  ool: : connaction.class  ), 
"ERROR[na». connection]  unable  to  craata  a  connection  instance"  ) ; 
CHECK_STATUS<  Ht_SatValaa(  nee. connection,  ool : : connection.type ,  MTSTRIIG  , 
new. type ,  HULL  ), 

"ERROR [new. connaction]  onabla  to  aat  tha  connaction  typa"  ) ; 

CHECK. STATUS (  Mt.SetValueC  naa. connaction,  ool: : connect ion. length,  HTS32, 
knew. length,  HULL  >, 

"ERR0R[naa. connaction]  onabla  to  aat  tha  connaction  length"  ) ; 

CHECK. STATUS (  Mt.AddSuccessor (  naa. connection,  ool : : eonnection.to, 
naa.to ,  MTAPPEHD  ) , 

"ERROR Cnaa. connect ion]  onabla  to  aat  tha  to  ralationahip"  ); 

CHECK. STATUS (  Ht_AddSoecassor(  new. connaction,  ool : : connect ion. froa, 
naa.fr oai,  MTAPPEHD  )  , 

"ERRORtnew. connection]  onabla  to  aat  tha  froa  ralationahip"  ) ; 

} 

////////////////////////////////////////////////////////////////////// 


2.2.5  macros.hh 

The  source  code  for  the  file  macros.hh  is  listed  below.  This  file  contains  the  CHECK-STATUS  macro  which 
is  used  in  all  portions  of  the  benchmark  implementation  to  ensure  that  a  database  error  did  not  occur  during 
a  call  to  the  Matisse  database. 


_ MACROS.HH 

_ MACROS.HH 


tifndef 
•define 
/* 

••mb  aaaaa 

•  •  •  • 

•  t  •  • 

•  t  •  • 

•  t  •  • 

•  •  •  • 

•••••  HIM 


t 

•• 

•  • 

•  MATISSE 

••••• 


"Objact  Operation#  Benchmark"  R.G.G.  Cattail  and  J.  Skeen 

Son  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  Ho.  1,  March  1992,  Pages  1-31. 


macros.hh 


Air  Force  Institute  of  Technology 
Timothy  J.  Bailor an 
16  Jol  1993 
•/ 

•define  CHECK.STATUS(statos, massage)  \ 
if  (MtFailure  (status))  {  \ 

MtPError (massage) ;  \ 

azit(l) ;  } 

•andif  ..MACROS.HH 


2.2.6  nullproc.hh 

The  source  code  for  the  file  nullproc.hh  is  listed  below.  This  file  defines  the  null  procedures  which  are  required 
to  be  called  at  certain  points  in  the  001  benchmark. 

•ifndef  ..HUIXPROC.HH 


35 


•define _ HUIXPROC.HH 

/• 


•••••  • 

•  •  •  •  •• 

•  •  •  •  •  • 

•  •  #  •  •  MATISSE 

•  •  •  •  • 

«  *  •  •  • 

llitl  Mill  HIM 

"Object  Operation*  Benchmark"  R.G.G.  Cattail  and  J.  Skeen 

Son  Microsystems 

ACM  Transaction*  on  Database  System*  Vol.  17,  Ho.  1,  March  1992,  Pages  1-31. 
nnllproc.hh 

Air  Force  Institnta  of  Technology 
Timothy  J.  lalloran 
19  Jon  1993 

Revisions: 

01  Jnl  1993  -TJH-  The  function  "null.procedure.lO"  uas  changed  to 
"null. procedure" . 

*/ 

void  nnll.procednre(  int  z,  int  y,  char  ‘type  ); 

void  null_procedure_get_z_y(  int  A  nev.x,  i  uev.y,  int  stream  ); 

fendif  ..HUIXPROC.HH 


2.2.7  nullproc.cc 

The  source  code  for  the  file  nullpjvc.ee  is  listed  below.  This  file  implements  the  null  procedures  which  axe 
required  to  be  called  at  certain  points  in  the  001  benchmark. 

/• 

*****  *****  • 

*  *  *  •  •• 

*  *  *  *  *  • 

*  *  *  •  •  MATISSE 

*  *  *  *  * 

*  *  *  *  * 

*****  ••*•<  •*•*• 


"Object  Operations  Benchmark"  R.G.G.  Cattail  and  J.  Skaen 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  Ho.  1,  March  1992,  Pages  1-31. 
nullproc.cc 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
19  Jun  1993 


Revisions : 

01  Jul  1993  -TJH-  The  function  "null.procedure.lO”  was  changed  to 
"null.procedure” . 

*/ 

•include<stdio . h> 

•include<dice .hh> 


•define  TRUE  1 
•define  FALSE  0 


static  int  debug  *  FALSE; 

////////////////////////////////////////////////////////////////////// 

void  null .procedure (  int  x,  int  y,  char  etype  ) 

//  this  procadura  doss  nothing  (a  null  procedure) 

1 1  (a  special  debug  schema  is  used  here  so  that  even  a  very  saart 
//  compiler  sill  still  sake  this  procedurs  call) 
if  (debug) 

printfC  " [null .procadura]  XSd  X6d  Xs\n",  x,  y,  type  ); 

> 

////////////////////////////////////////////////////////////////////// 

void  null.prc-wdure.get.x.yC  intt  nes.x,  intt  nes.y,  int  stream  ) 

nes.z  >  (int)roll(  0,  99999,  stream  ); 
nes.y  ■  (int)roll(  0,  99999,  stream  ); 

> 

////////////////////////////////////////////////////////////////////// 


2.2.8  ool.hh 

The  source  code  for  the  file  ool.hh  is  listed  below.  This  file  defines  the  001  class.  This  class  implements 
the  benchmark  measures  and  reporting  functions  required  by  the  001  benchmark.  The  001  class  is  non- 
persistent. 


•ifndef  ..001.HH 
•define  ..001.HH 
/* 

••••»  ••••• 

•  •  •  • 

•  •  •  • 

•  •  •  • 

•  •  •  • 

•  •  •  • 

••<•*  ••••• 


•« 

•  • 

•  MATISSE 

••••• 


"Object  Operations  Benchmark”  R.G.G-  Cattail  and  J.  Skeen 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  Ho.  1,  March  1992,  Pages  1-31. 


ool.hh 


Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
31  Jul  1993 
*/ 

•inclnde"params .hh” 

struct  benchmark.results.type  { 
double  elapsed. time ; 
double  normalized. elapsed. time; 
int  num.parts.connected ; 

}  ; 

class  ool  { 

int  num.nodes.visited_in.f orvard.traversal ; 
int  num.perts; 

benchmark. result* .type  results  CXOM.BEHCHMARK.ITEJUTIQHS]  ; 
int  stream;  //  for  the  random  number  generator 
MtKey  create. a_part(  int  part .id  ); 

void  create.connectionsC  MtKey  db.part,  int  part  .id,  int  num.parts  ); 

void  lookup.sch*oa_oids(  ) ; 

void  report. results (  int  measurement  ); 


37 


public : 

static  MtKey  connect ion. class,  connect  ion.  type,  connect  ion.  length; 

•tetic  MtKey  connect ion.from,  connection.to; 

static  MtKey  pert. class,  part. id,  part. type,  part.x,  part.y,  part. build; 
static  MtKey  part.connected.frco,  part. connected. to; 
ool(  int  nus.parts,  int  stress  ); 
void  clear(  ) ; 

void  f orward.tr aver sal _aeas ure(  ) ; 

void  insert .measure (  ) ; 

void  load(  ) ; 

void  lookup.meaaure (  ); 

void  reverse_traversal_measure(  ) ; 

}; 

•endif  ..001.HH 

2.2.9  ool.ee 

The  source  code  for  the  file  ool.ee  is  listed  below.  This  file  implements  the  001  class.  This  class  implements 
the  benchmark  measures  and  reporting  functions  required  by  the  001  benchmark.  The  001  class  is  non- 
persistent. 

/• 

•••*•  •••••  • 

•  *  •  * 

•  •  •  •  *  * 

•  •  •  *  •  MATISSE 

9  «  «  •  » 

9  9  9  9  9 

99999  99999  99999 

"Object  Operations  Benchmark"  R.G.G.  Cattail  and  J.  Skeen 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  Ho.  1,  March  1992,  Pages  1-31. 
ool.ee 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
31  Jul  1993 

Revisions: 

22  Aug  1993  -TJH-  Changed  out  random  number  generator. 

22  Aug  1993  -TJH-  Changed  the  "report .results (  )"  function  to  provide  more 
concise  output. 

04  Sep  1993  -TJH-  Changed  use  of  several  API  functions  to  Mt.*  functions, 

(which  use  OIDs,  rather  than  character  strings)  from 
Mt*  functions.  This  was  recommended  by  MATISSE  to 
improve  performance. 

16  Sep  1993  -TJH-  Removed  MATISSE  schema  creation  and  removal  from  this  program 
(bench)  Into  another  program  (oolschema) . 

*/ 

•include<matisse . h> 

•indude<stdio .  h> 

•include<stdlib . h> 

*include<time .h> 

extern  "C"  int  strftime( . . .) ;  //  not  defined  in  the  <time.h>  header  file 

•indude<dice .  hh> 

•indude<stopvtch  .hh> 

•include<debug . hh> 

•indude”ool.hh" 

•include "connect . hh" 

• include "part .hh" 
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# include”nullproc .hh" 

»include"param*.hh" 

•include "macros .hh" 

•non  <  INSERT,  FORWARD. TRAVERSAL ,  LOOKUP,  REVERSE. TRAVERSAL  >; 

•tatic  char  apart. types[10]  ■  { 

"part-typeO" ,  "part-typel" ,  "part-typ«2" ,  ''part-type3",  "part-type4", 
"part-typa6” ,  ”part-typ«6" ,  ”part-typa7",  'part-typaS'' ,  "part-typ«9" 

>; 

llllllllllllllllllllllllllllllllllllllllllllllllllllllimilllllllllll 

ool : : ool (  int  n urn. part* ,  int  stream  ) 

{ 

DEBUG. INIT(  "001"  ,  "ooi::ool"  ); 

DEBUG. OUT  (  "entering”,  1  ); 

//  save  the  number  of  parts  In  the  database 
this->num_parts  *  num.part# ; 

//  save  the  stream  number  for  use  sith  the  random  number  generator 
this->stream  »  stream; 

//  calculate  the  number  of  nodes  which  will  be  visited  in  a  forward  traversal 
//  (this  value  will  be  used  to  normalize  the  measurements 
//  from  the  reverse  traversal) 
int  nodes.at.current.level  »  NUM.CONNECTIOHS ; 
num.nodes. visited. in. forward. traversal  •  1  +  HUM. CONNECTIONS ; 
for  (  int  i  -  2  ;  i  <«  TRAVERSAL. DEPTH  ;  i++  )  { 
nodes.at.current.level  *«  NUM.CONNECTIONS; 

num.nodes.visited.in.f orward.traversal  nodes.at.current.level ; 

> 

DEBUG_DUT(  sprintf(  BUG,  "number  of  nodes  which  will  be  visited  in  the  " 
"forward  traversal  %d" ,  num.nodes.visited.in.forward. traversal  ) ,  2  )  ; 

//  determine  all  the  database  schema  oids 
lookup. schema. oids(  ); 

DEBUG. OUT (  "MATISSE  OIDs  read  in",  2  ); 

} 

////////////////////////////////////////////////////////////////////// 

void  ool : : clear!  ) 

i 

DEBUG.INIT(  ”001"  ,  "ool:: clear"  ); 

DEBUG. 0UT(  "entering",  1  ); 

//  clear  all  the  parts  from  the  database 
CHECK.STATUSC  KtStartTransaction(  0  ) , 

"ERROR [ool: : clear]  unable  to  start  a  transaction"  ); 

int  num.parts.to.delete  «  num. parts; 
while  (  num.parts.to.delete  )  •{ 

delete.part!  num.parts.to.delete  ); 
num.parts.to.delete — ; 

> 

CHECK.STATUSC  MtCommitTransaction(  0,  0  ), 

"ERROR [ool :: clear]  unable  to  commit  current  transaction"  ); 

//  note  that  this  procedure  doesn’t  delete  the  schema 

DEBUG. 0UT(  "all  parts  and  connections  deleted  (but  the  schema  remains)",  2  ); 

> 

iiiiiiiiiiimiiiiuiiiiiuiiiiiiiiiiiiiiiiiimiiiiimiiiiiiiimm 

HtKey  ool :: create. a.part (  int  part. id  )  //  private 

{ 

DEBUG_INIT(  "001”  ,  "ool : :create.a.part"  ); 

DEBUG. 0UT(  "entering",  1  ); 
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int  naw.x; 
int  new.y ; 

char  tMt.baild.data  [10] ; 

//  craata  a  new  part  in  tha  databasa 
char  enew.type  ■  part_types[roll(  0,  9,  stream  )] ; 
null.procedure_get.x_y (  new.x,  new.y,  stream  );  //  null  procedure 

long  nen.build.datetime  »  roll(  JAN. 1.1980,  JAN.1.1990,  stream  ); 
struct  tm  •new.tm.timedate  *  localtime(  Anew. build. date time  ) ; 
strftime(  text.build.date,  10,  "XdXbXT" ,  new.tm.timedate  >; 

DEBUG. OUT (  sprint! (  BUG,  "adding  part  Xd  «s  XSd  X6d  Xs>”, 
part. id,  naw.type,  naw.x,  naw.y,  text.build.date  ),  2  ); 
return  (  new. part (  part. id,  naw.type,  naw.x,  new.y,  naw.build.datatime  )  ); 

> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  ool :: create. connections (  MtKey  db.part,  int  part. id,  int  num.parts  )  //  private 

DEBUG.INITC  "001"  ,  "ool : : create. connect ions"  ); 

DEBUG.OUT (  "entering",  1  ); 
int  cpart.id; 

MtKey  db.cpart; 
int  new.length; 
char  enew.type; 

//  create  NUM.CONNECTIONS  from  the  part  "db.part” 
for  (  int  c  »  1  ;  c  <«  NUM.CONNECTIONS  ;  C++  )  { 

if  (  roll(  1,  10,  stream  )  >  LOCALITT. OF. REFERENCE  )  { 

//  90X  of  the  time  create  connection  to  the  closest  IX  of  parts 
II  (this  is  true  when  "LOCALITY.OF.REFEREHCE"  is  equal  to  1) 
cpart.id  «  part. id  +  (int)roll(  1,  (longX  num.parts  /  100  ),  stream  ) 

-  1  -  (int) (  num.parts  /  200  ) ; 

II  "double  up"  at  the  ends  (to  stay  in  the  part  id  range) 
if  (  cpart.id  <  (int)(  num.parts  /  200  )  ) 

cpart.id  »  cpart.id  +  (intX  num.parts  /  200  ); 
if  (  cpart.id  >  (  num.parts  -  (intX  num.parts  /  200  )  )  ) 
cpart.id  »  cpart.id  -  (intX  num.parts  /  200  ); 

else  { 

//  10X  of  the  time  create  connection  to  any  part  1. .num.parts 
//  (this  is  true  when  "LOCALITY.OF.REFERENCE"  is  equal  to  1) 
cpart.id  *  (int)roll(  1,  (long) num.parts ,  stream  ); 

> 

//  create  the  connection  in  the  database 
db.cpart  »  query_a_part(  cpart.id  ) ;  II  query  the  part 
new.type  »  part. types [roll (  0,  9,  stream  )] ; 
new.length  *  (int)roll(  0,  99999,  stream  ); 

DEBUG_0UT(  sprintf(  BUG,  "connecting  part  Xd  to  part  Xd  (Xs  XBd)", 
part. id,  cpart.id,  new.type,  new.length  ),  2  ); 
new. connection (  db.part,  db.cpart,  new.type,  new.length  ); 

> 

> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
void  ool: ;forward.traversal.measure(  ) 
i 

DEBUG_INIT(  "001"  ,  "ool : : forward. traversal.measure"  ); 

DEBUG.OUT (  "entering",  1  ) ; 

MtKey  db.part; 
int  part. id; 

II  run  the  benchmark  iterations 

for  (  int  i  ■  1  ;  i  <«  NUM.BENCHMARK. ITERATIONS  ;  i++  )  { 

II  start  the  timer 
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stopwatch  traversal .timer; 
traversal _t imer . start (  ); 

CHECK. STATUS (  MtStart  Transaction  0  ), 

"ERROR Cool :: forward. traversal.measure]  nnabla  to  start  a  transaction"  ); 

for  C  int  j  «  1  J  j  <«  HUM.PORWARD.TRAVERSAL  ;  j++  )  { 

//  lookup  a  random  part 

part. id  ■  (int)roll(  1,  (long) num.parts,  straam  ); 
db.part  «  quary.a.part  (  part. id  );  //  lookup  tbs  part 

//  find  all  tka  parts  connactad  to  this  part  (up  to  TRAVERSAL. DEPTH) 
rasultsCi  -  1) .num.parts. connactad  •  forvard.traversaK  0,  db.part  ); 
DEBUG_0UT(  sprintfC  BUG,  “found  Xd  parts  connactad  to  part  Xd“, 
rasultsCi  -  1] .num.parts. connactad,  part. id  ),  2  ); 

> 

CHECK_STATUS(  Mt Commit Transact ion (  0,  0  ), 

"ERROR [ool: -.forward,  traversal.measure]  unable  to  commit  currant  transaction"  ); 

//  stop  tha  timer  and  save  the  elapsed  time 
rasultsCi  *  1]  .elapsed. time  *  traversal. timer ,stop(  ); 

> 

//  report  tha  benchmark  results 
raport.rasultsC  FORWARD. TRAVERSAL  )  ; 

} 

iimiiiiiimiiiiiiiiiiiiiiiiiiiiiiiiiiiuiiiiiiiiimiiiiiiiiiiiiiii 

void  ool :: insert .measure(  ) 

{. 

DEBUG_INIT(  "001"  ,  "ool : : insart_measure"  )j 
DEBUG. OUT (  "entering",  1  ); 

//  run  tha  benchmark  iterations 

for  (  int  i  ■  1  ;  i  <«  NUM.BEHCHMARK.ITERATIOHS  ;!♦+)■£ 

//  start  the  timer 
stopwatch  insert. timer; 
insert. timer. start (  ); 

CHECK. STATUS (  HtStartTransaction(  0  )  , 

"ERROR Cool :: insert .measure]  unable  to  start  a  transaction"  ); 

//  insert  parts  into  the  database  and  call  a  "null"  procedure 
//  to  get  the  z  and  y  position  for  each  insert 

//  (the  "null"  procedure  is  called  by  the  ”create.a.part(  )"  function) 
for  (  int  p  *  num.parts  +  1  ;  p  <»  num.parts  +  HUM. INSERT  ;  p++  ) 
create. connections (  create.a_part(  p  ),  p,  p  ); 

CHECK .STATUS (  MtCommitTransaction(  0,  0  ), 

"ERROR [ool :: insert .measure]  unable  to  commit  current  transaction"  ); 

//  stop  the  timer  and  save  the  elapsed  time 
rasultsCi  -  U.elapsed.time  ■  insert. timer ,stop(  ); 

II  remove  the  inserted  parts  and  connections 
CHECK.STATUS(  MtStartTransaction(  0  ) , 

"ERROR Cool :: insert .measure]  unable  to  start  a  transaction"  ); 

for  (  p  »  num.parts  ♦  1  ;  p  <»  num.parts  +  HUM.IISERT  ;  p++  ) 
delate .part (  p  ); 

CHECK.STATUS(  MtCommitTransaction(  0,  0  ), 
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"ERRORCool: : insert .measure]  unable  to  commit  currant  transaction"  ); 

> 

//  report  the  benchmark  results 
report .result s(  INSERT  ) ; 

} 

///////////✓//////✓/✓///////////////////////////////////////////////// 

void  ool::load(  ) 

{ 

DEBUG.  I1UT(  "001”  ,  "ool::load"  ); 

DEBUG. OUT (  "entering",  i  ); 

//  time  the  creation  of  the  001  database 
stopwatch  db. creation. timer; 
db.creation.timer. start (  ); 

CHECK_STATUS(  HtStartTransaction(  0  ) , 

"ERRORCool: :load]  unable  to  start  a  transaction”  ); 

//  create  "num.part"  parts 
for  (  int  p  »  1  ;  p  <•  num.parts  ;  p++  ) 
create. a_part(  p  ); 

//  create  connections  for  each  part 
MtKey  db.part; 

for  (  p  »  1  ;  p  <■  num.parts  ;  p+*  )  { 
db.part  ■  query .a.partC  p  ) ; 
create. connect ions (  db.part,  p,  num.parts  ); 

> 

CHECK. ST VTUS(  HtCommi  transaction  (  0,  0  ), 

"ERRORCool: : load]  unable  to  commit  current  transaction"  ); 

//  report  the  time  it  took  to  load  the  database 
double  total.elapsed.time  >  db.creation.timer .stop(  }; 
printfC  "  X.3f  sec\n",  total.elapsed.time  ); 

> 

iimiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiuuiiiiiiiiiiiiiimiimiii 

void  ool : : lookup.measure (  ) 

DEBUG.IHIT<  "001"  ,  "ool :: lookup.measure"  ); 

DEBUG. 0UT(  "entering".  1  ); 

HtKey  db.part; 

MtS32  db.part. id; 
int  part.id.to.lookup; 

MtChar  part .type. char [11] ; 

HtSize  size; 

HtType  type; 
int  z; 
int  y; 

//  run  the  benchmark  iterations 

for  (  int  i  «  1  ;  i  <■  NUM.BENCHHARK. ITERATIONS  ;  i++  )  { 

//  start  the  timer 
stopwatch  lookup. timer ; 
lookup. timer. start (  ); 

CHECK.STATUS(  MtStartTransaction(  0  )  , 

"ERRORCool: : lookup.measure]  unable  to  start  a  transaction"  ); 

//  lookup  parts  in  the  database  and  call  a  null  procedure  for  each  lookup 
for  (  int  j  •  1  ;  j  <■  NUM.L00KUP  ;  j++  )  { 
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//  lookup  a  random  part 

part _ id. to. lookup  ■  (int)roll(  1,  Clong)num.parts,  atraaa  ); 
db.part  «  quary.a.part (  part. id. to. lookup  );  //  lookup  tha  part 

//  road  tha  part’ a  "id" 
size  *  sizeofC  db.part. id  ); 

CHECK.STATUSC  Ht.GatValuaC  db.part,  ool : : part. id,  ktypa,  kdb.part.id,  NULL, 
kaisa,  NULL  ), 

"ERROR [ool: : lookup .maaaura]  unabla  to  got  value  of  part  id"  ); 

//  road  tha  part ’a  "typo" 
aiza  »  aizoofC  part .typo. char  ); 

CHECK. STATUSC  Ht.GatValuo(  db.part,  ool :: part _typa,  ktypa,  part _ typa. char ,  NULL, 
kaizo,  NULL  ) , 

"ERROR [ool: : lookup .maaaura]  unabla  to  gat  valua  of  part  typa"  ); 

II  road  tb->  part’ a  ”x"  and  "y"  valuaa 
aiza  •  ai  ofC  z  ); 

CHECK. STi  j3(  Ht.GatValuaC  db.part,  ool::part_z,  ktypa,  kz,  NULL,  baize,  NULL  ), 
"ERROR [ool: : lookup.maaaura]  unabla  to  gat  valua  of  part  x"  ); 
aiza  ■  aizaof(  y  ); 

CHECK. STATUS (  Ht.GatValuaC  db.part,  ool::part_y,  ktypa,  ky,  HULL,  kaiza,  NULL  ), 
"ERROR [ool :: lookup.maaaura]  unabla  to  gat  valua  of  part  y"  ); 

DEBUG. 0UT(  aprintf (  BUG,  "lookad  up  part  Xd",  db.part. id  ),  2  >; 

//  call  the  required  null  procedure 
null.procadureC  z,  y,  part. type. char  ); 

} 

CHECK. STATUS (  MtCommitTransactionC  0,  0  ), 

"ERROR [ool: : lookup .meaaure]  unable  to  commit  current  tranaaction"  ); 

//  atop  tha  timer  and  aave  the  elapaed  time 
resultaCi  -  1] .elapsed. time  ■  lookup.timer .stopC  ); 

> 

//  report  the  benchmark  reaulta 
report .result a (  LOOKUP  ) ; 

> 

IllllllllltltlllllllllllllUllllllllllllllllllllllltllllllllllllllllll 

void  ool : : lookup. schema.oids C  )  //  private 

{ 

DEBUG. INIT(  "001”  ,  "ool::lookup_schema.oids"  ); 

DEBUG. OUT (  "entering",  1  ); 

CHECK .STATUS (  HtStart Transact ion (  0  )  , 

"ERROR [ool : : lookup. schama.oids]  unable  to  start  a  transaction"  ); 

II  lookup  the  schema  for  the  part  class 
CHECK. STATUS (  MtGetClassC  Apart. class,  "part"  ), 

"Error [ool : :lookup.schema_oids]  can’t  find  part  class"  ); 

CHECK.STATUSC  MtGet Attribute (  Apart .id,  "part  id"  ), 

"Error [ool : : lookup. schema.oids]  can’t  find  part  id  attribute"  ); 

CHECK.STATUSC  MtGet Attribute C  Apart .type,  "part  typa"  ), 

"Error [ool : :lookap_schema.oids]  can’t  find  part  type  attribute”  ); 

CHECK.STATUSC  MtGet Attribute C  Apart. z,  "part  x"  ), 

"Error [ool: : lookup .schema.oids]  can’t  find  part  z  attribute"  ) ; 

CHECK.STATUSC  MtGetAttributeC  kpart.y,  "part  y"  ), 

"Error[ool: :lookup_schema_oida]  can’t  find  part  y  attribute"  ); 

CHECK.STATUSC  MtGetAttributeC  kpart.build,  "part  build"  >, 

"Error[ool: : lookup. schema.oids]  can’t  find  part  build  attribute"  ); 

CHECK.STATUSC  MtGetRelationshipC  Apart. connected.to,  "part  connected  to"  ), 

"Error [ool : : lookup. schema. oids]  can’t  find  part  connected  to  relationship"  ); 
CHECK.STATUSC  MtGetRelationshipC  Apart. connected. from ,  "part  connected  from"  ), 
"Error [ool :: lookup. schema.oids]  can’t  find  part  connected  from  relationship"  ); 
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//  lookup  tho  schema  for  the  connection  claas 

CHECK. STiTOS(  HtGetClass(  tconnection.class ,  "connection"  ), 

"Error [ool: :  lookup,  scheaka.oi  da]  can’t  find  connaction  claaa”  ); 

CHECK _ STATUS (  HtGet Attribute (  Aconnect ion. type,  "connaction  type"  ), 

"Error [ool : :lookup.schena_oids]  can’t  find  connaction  type  attributa"  ); 

CHECK. STATUS (  HtGat Attribota (  Aconnect ion.length,  "connaction  length"  ), 

"Error [ool : : lookup.schena.oids]  can’t  find  connaction  length  attribota"  ); 

CHECK. STATUS (  HtGatRalationakip(  Aconnect ion. to,  "connaction  to"  ), 

"Error [ool: : lookop.ackaaM.oida]  can’t  find  connaction  to  ralationahip”  ); 

CHECK. STATUS(  HtGetRelationshipC  Aconnection.f rom ,  "connaction  from"  ), 

"Error [ool: : lookop.achaaM.oida]  can’t  find  connection  fron  ralationahip"  ); 

CHECK. STATUS(  MtCommitTransaction(  0,  0  ), 

"ERROR [ool : :lookop.achaaa.oida]  onabla  to  commit  currant  transaction"  ); 

} 

////////////////////////////////////////////////////////////////////// 

void  ool :: report. raaolta(  int  measurement  )  //  private 

{ 

{  //  too  debug  INITa  uaad  in  thia  function  ao  hide  this  one  froa  the  other 
DEBUG. IN IT (  "001"  .  "ool :: report. reaulta”  ); 

DEBUG. OUT (  "entering",  1  ); 

> 

double  cold.elapsed.time; 

double  total.after.firat.iteration  «  0.0; 

double  uarn.elapsed.tine ; 

//  report  the  benchmark  reaulta 

DEBUG. IHIT(  "RESULTS"  ,  "ool :: report. reaulta"  ); 

II  determine  the  cold  time 

if  (  measurement  mm  REVERSE.TRAVERSAL  ) 

//  the  reverae  travaraal  times  are  normalized 
cold.elapaed.tina  ■  reaulta [0] .normalized.elapaed.time; 

else 

cold.elapaed.time  m  reaulta [0] .elapsed. time; 

//  calculate  the  warm  time 

for  (  int  i  ■  1  ;  i  <»  HUM.BEHCHMARK.ITERATIOIS  ;  i++  )  { 

//  output  detailed  reaulta  if  the  "RESULTS”  environment  variable  ia  aet 
//  to  at  leaat  a  level  of  1  (i.e.  aetenv  RESULTS  1) 

DEBUG. OUT C  aprintf(  BUG,  "iteration  X2d  elapaed  time  X - 3f  aec",  i, 
reaulta [i  -  1] . elapaed. time  ),  1  ); 
if  (  measurement  ■■  FORWARD. TRAVERSAL  )  < 

DEBUG. OUT (  sprintf (  BUG,  "(parts  found  Xd) " , 
reaulta [i  -  1]  .num.parts. connected  ) ,  1  ) ; 

} 

if  (  measurement  »«  REVERSE.TRAVERSAL  )  { 

DEBUG. OUT (  sprintf(  BUG,  "(parts  found  Xd  normalized  time  X.3f  sec)", 
results [i  -  1] .num.parts. connected, 
results [i  -  1]  .normalized.elapaed.time  ),  1  ); 

> 

//  add  up  the  elapsed  times  (for  all  iterations  after  the  first) 
if  (i  !-  1) 

if  (  measurement  ««  REVERSE.TRAVERSAL  ) 
total.after.firat.iteration  results[i  -  1] .normalized.elapsed.time; 

else 

total.after.firat.iteration  ♦«  results [i  -  1] . elapaed.time; 

} 

uarm.elapaed.time  -  total.after.firat.iteration  /  (  HUH. BENCHMARK. ITERATIONS  -  l  ) 
//  output  a  quick  summary  of  all  the  times 
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for  (  i  -  1  ;  i  <•  HUH.BEICHHARK.ITERATIONS  ;!♦♦)< 
print! (  "  X7.31",  r •salt* Ci  -  1] . elupsed.time  ); 

> 

//  output  the  cold  and  uarn  roaulta 
print! (  ”  C  X7.3f".  cold. elapsed. time  ); 
print! (  "  W  X7.31\n",  wam.elepsed.time  ); 

} 

////////////////////////////////////////////////////////////////////// 

void  ool :  :reversa.travarsal.neasure(  ) 

{ 

DEBOG. IIIT (  "001"  ,  "ool : :rovarae.travorial.noaaura"  ); 

DEBUG. OOT (  "entering" ,  1  ); 

MtKey  db.part; 
int  part  .id; 

//  run  tha  benchmark  itarationa 

for  (  int  i  ■  1  ;  i  <•  NUN. BENCHMARK. ITERATIONS  ;!♦♦)< 

//  start  tha  tinar 
stopwatch  traver sal. tinar; 
travarsal.tiaar . start (  ); 

CHECK .STATUS (  MtStartTransaction(  0  )  , 

"ERROR [ool :: reverse. traversal.measure]  unabla  to  start  a  transaction"  ); 

for  (  int  j  -  1  ;  j  <■  NUM.FORWARD .TRAVERSAL  ;  j++  )  < 

//  lookup  a  random  part 

part.id  »  (int)roll(  1.  (long)num.parts,  straam  ); 
db.part  ■  query .a.part  (  part.id  );  //  lookup  tha  part 

//  find  all  tha  parts  which  connect  to  this  part  (up  to  TRAVERSAL .DEPTH) 
results [i  -  1]  .nnm.parts.connactad  »  ravarsa. traversal (  0,  db.part  ); 

DEBUG. OUT (  sprint! (  BUG,  "found  Xd  parts  connected  to  part  Xd", 
results [i  -  1] nua.parts. connected,  part.id  ),  2  ); 

> 

CHECK. STATUS (  MtCommitTransaction(  0,  0  ), 

"ERROR [ool : : rev arse .traversal .measure]  unabla  to  commit  currant  transaction"  ); 

//  stop  the  timer  and  save  tha  elapsed  time 
results [i  -  1]  .elapsed. time  «  traversal. timer .stop(  ); 

//  tha  results  for  the  ravarsa  traversal  are  normalized  so  that  they 
//  may  be  compared  to  the  forward  traversal 

//  (multiply  tha  time  by  num_nodes.visited.in_forvard_traversal/H, 

//  where  N  is  tha  number  of  nodes  actually  visited  in  tha  reverse 
/ /  traversal) 

results [i  -  1] .normalized.elapsed.time  ■  results [i  -  1] .elapsed. time  e 
(  (double)num.nodes.visited.in.forward. traversal  / 

(doubla)resultsCi  -  1] .num. parts. connected  ); 

> 

//  report  the  benchmark  results 
report.rasults (  REVERSE. TRAVERSAL  ); 

> 

iiiiiiiiiiiiimiiiiiiiimiiimiiiiiiiiiiiiiimiiiiiiiiiiiiiiiniii 

2.2.10  oolschema.cc 

The  source  code  for  the  file  oolschema.cc  is  listed  below.  This  file  is  the  source  file  for  the  oolschema 
program.  The  oolshema  program  loads  {and  can  remove)  the  001  benchmark  schema  into  the  Matisse 
database.  The  schema  must  be  loaded  before  the  bench  program  can  be  run. 
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/• 


MM*  HIM  • 

•  •  •  •  M 

•  *  *  •  *  • 

•  *  *  *  • 

•  •  •  •  • 

•  •  •  •  • 

•••••  •••••  •••*• 


MATISSE 


"Object  Operations  Benchmark"  K.Q.G.  Cattail  and  J.  Skaan 

Son  Microsystems 

ACM  Transaction*  on  Database  Systems  Vol.  17,  So.  1,  March  1992,  Pages  1-31. 


oolschema.ee 


Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
1«  Sep  1993 

This  program  creates  or  remove*  the  MATISSE  schema  for  the  001  benchmark. 

This  program  requires  linking  to  the  "matisseDS"  library,  vhile  the  "bench" 
program  only  requires  linking  to  the  "matisseDE"  library  (because  it  does 
not  modify  the  database  schema) .  The  use  of  the  DE  library  for  the  "bench" 
program  was  recommended  by  MATISSE  to  improve  database  performance. 

*/ 

t includetmat isse . h> 

•include<stdio .  h> 
tinclude<stdlib.h> 

Sinclude<str ing . h> 
finclude<debug.hh> 

•include "macros . hh" 

void  create.schema(  ); 
void  remove. schema (  ) ; 

•define  TRUE  1 
•define  FALSE  0 

•define  SCHEHA.ERROR  "ERROR [create.schsma]  error  vhile  creating  schema” 
////////////////////////////////////////////////////////////////////// 
main(  int  arge,  char  **argv) 

< 

DEBUG. IMIT(  "HAIM"  ,  "main"  ) ; 

DEBUG. OUT (  "entering",  1  ); 

HtDatabase  db; 

//  check  the  command  line  arguments 
if  (  urge  <  4)  •{ 

fprintfC  stderr,  "oolschema  [create  I remove]  [server]  [database]\n"  ); 
return  1;  //  exit  the  program 

> 

char  ‘operation  ■  argv[l]; 

if  (  ! (  !strcmp(  operation,  "create”  )  II  ! strcmpC  operation,  "remove"  )  )  )  { 
fprintfC  stderr,  "ERROR [nain]  the  operation  must  be  V'createV",  or  ” 
"V'removeV'Vn"  ); 
return  1;  //  exit  the  program 

} 

char  adb.server  ■  argv[2]; 
char  adb.name  ■  argv[3]; 

//  output  a  program  title 

printf(  "001  BEMCHMARK  [MATISSE]  Air  Force  Institute  of  Technology \n"  ); 
printf (  "  MATISSE  database  \"%s\"  on  Xs.\n",  db.name,  db.server  ); 
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1 1  connect  to  the  HATISSE  dtttbu* 

CHECK. STATUS!  MtConnect (  Mb,  db.server,  db.name, 

3  /•  priority  */, 

6  /*  wait  •/, 

FALSE  /•  no  setTiaeOnly  •/  ) , 

"ERRORCnain]  unable  to  connect  to  HATISSE  database"  ) ; 

//  not  the  context  (eo  that  only  one  database  is  selected) 

CHECK. STATUS!  Ht Sat Context (  db  ) , 

"ERRORCnain]  unable  to  set  context  to  opened  database"  ) ; 

//  create  or  delete  the  benchmark  schema 
if  (  !strcap(  operation,  "create"  )  )  { 
print! (  "  SCHEMA  CREATEXn”  ); 
create. schema (  ) ; 

> 

else  if  (  !streap(  operation,  "remove"  )  )  { 
print! (  "  SCHEMA  REMOVENn"  ); 
r Move. schema (  ) ; 

} 

//  reset  the  context  and  close  the  database 
CHECK. STATUS!  MtHoContext!  ) , 

"ERROR [main)  unable  to  reset  context"  ) ; 

CHECK .STATUS (  MtOisconnect (  db  ), 

"ERROR [main]  unable  to  close  the  MATISSE  database"  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

void  create. schaaw<  ) 

{ 

DEBUG. IHIT(  "MAH"  ,  "create.schama"  ) ; 

DEBUG. OOT(  "entering",  1  ) ; 

MtKey  connection. class ,  connection. type ,  connect ion. length; 

MtKey  connection.! rom ,  connection. to ; 

HtType  int.type[2]; 

MtKey  part. class,  part. id,  part. type,  part.x,  part.y,  part .build; 

MtKey  part. connected.! rom,  part .connected. to; 
int  part. cardinality [2] ; 

HtType  string. type[l] ; 

int. type [0]  -  MTHIL; 
int. type[l]  -  MTS32; 
part. cardinality [0]  e  0; 
part. cardinality [1]  ■  -1; 
string. type  CO]  ■  MTSTRIHG; 

CHECK. STATUS  (  MtStart Transaction (  0  ) , 

"ERROR [create .schema]  unable  to  start  a  transaction"  ); 

//  create  classes 

CHECK.STATUS!  MtCreateOb ject!  Apart .class,  "class”  ), 

SCHEKA.ERROR  ) ; 

CHECK.  STATUS  (  Mt  Set  Value  (  part.clasa,  "external  name",  MTSTRIHG,  "part",  0  ), 
SCHEMA. ERROR  )  ; 

CHECK. STATUS (  MtCreateOb ject !  Aconnection.class ,  "class"  ), 

SCHEKA.ERROR  ) ; 

CHECK. STATUS (  MtSetValue!  connection.class ,  "external  name",  MTSTRIHG, 
"connection" ,  0  ) , 

SCHEKA.ERROR  ) ; 

//  create  attributes 

CHECK.STATUS(  MtCreateOb  ject  (  Apart. id,  "attribute"  ), 

SCHEKA.ERROR  ) ; 
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CHECK.STATUS!  Mt Set Value!  port .id,  "external  mm",  MTSTRIMG,  "port  id”.  0  ), 

SCHEMA. ERROR  ) ; 

CHECK. STATUS (  Mt Set Value!  port  .id,  "mJu  entry  function",  MTSTRIMG, 

"Mho-entry",  0  ),  SCHEMA. EAAOE  ); 

CHECK. STATUS (  Mt Set Value!  port. id.  “typo",  MTS32.LIST,  int.type,  1,  2  ), 

SCHEMA. EMUJA  ) ; 

CHECK. STATUS (  MtCrootoObjoct!  Aport.type,  "attribute"  ), 

SCHEMA. EAHOK  ) ; 

CHECK. STATUS (  HtSotV«ln«(  port. typo,  “oxtornnl  oom",  MTSTRIMG,  "port  typo",  0  ), 
SCHEMA. EMMOR  ) ; 

CHECK. STATUS (  HtSotValao(  port. typo,  "typo",  HTS32.LIST,  string.typo,  1,  1  ), 
SCHEMA.EEEOH  ) ; 

CHECK. STATUS (  MtCrootoObjoct (  Apert _x,  “nttribnto”  ), 

SCHEMA. E&E0&  ) ; 

CHECK. STATUS (  MtSetValuo!  port.x,  "oxtornnl  mm",  KTSTtlNG,  "port  x",  0  ), 
SCHEMA.EEEOH  ) ; 

CHECK. STATUS (  MtSotVolao(  port.x,  “typo".  MTS32.LIST,  int.typo,  1,  2  ). 

SCHEMA.EEEOH  ) ; 

CHECK. STATUS (  MtCrootoObjoct (  Aport.y,  "nttribnto"  ), 

SCHEMA.EEEOH  ) ; 

CHECK. STATUS (  HtSotVmlao(  port.y,  “oxtornnl  hm",  MTSTHIHC,  "port  y”,  0  ), 
SCHEMA.EEEOH  ) ; 

CHECK _ STATUS (  MtSatVelua!  port.y,  "typo",  MTS32.LIST,  int.typo,  1,  2  ), 

SCHEMA.EEEOH  ) ; 

CHECK. STATUS (  MtCrootoObjoct (  Aport. build,  "ottributo"  ), 

SCHEMA. EHROR  ) ; 

CHECK. STATUS (  HtSotVuluo(  port.build,  "oxtornnl  mm",  MTSTHIHC,  "port  build",  0  ), 
SCHEMA. ERROR  ) ; 

CHECK.STATUS!  MtSotVoluo(  port.build,  "typo",  MTS32.LIST ,  int.typo,  1.  2  ). 

SCHEMA. ERROR  ) ; 

CHECK.STATUS (  MtCrootoObjoct (  Aconnoction.typo,  "ottributo"  ), 

SCHEMA. ERROR  ) ; 

CHECK.STATUS (  MtSetValuo!  connoction.typo,  "oxtornnl  mm",  MTSTRIMG, 

"connoction  typo" ,  0  ) ,  SCHEMA. ERROR  )  ; 

CHECK.STATUS (  MtSetVelue!  connoction.typo,  "typo",  MTS32.LIST,  string.typo,  1,  1  ), 
SCHEMA. ERROR  ) ; 

CHECK.STATUS (  MtCrootoObjoct (  Aconnection.length,  "ottributo”  ), 

SCHEMA. ERROR  )  ; 

CHECK.STATUS (  MtSotVoluoC  connection. length ,  "external  nano",  MTSTRIMG, 

"connoction  length" ,  0  ) ,  SCHEMA. ERROR  ) ; 

CHECK. STATUS (  MtSotVoluoC  connect ion.length,  "typo",  MTS32.LIST,  int.typo,  1,2), 
SCHEMA. ERROR  ) ; 

//  odd  relationships 

CHECK. STATUS (  MtCrootoObjoct (  Apart. connected. to,  "relationship"  ), 

SCHEMA .ERROR  )  ; 

CHECK. STATUS (  MtSotValuo(  part.connsctod.to,  "oxtornnl  noma” ,  MTSTRIMG, 

"port  connected  to" ,  0  ) ,  SCHEMA. ERROR  ) ; 

CHECK.STATUS!  MtSotVoluoC  port.connoctod.to,  "cardinality",  MTS32.LIST, 
part. cardinality ,  1,  2  ),  SCHEMA. ERROR  )  ; 

CHECK.STATUS!  MtAddSuccossor!  port.connoctod.to,  "successors”, 
connect ion.class.MTAPPEHD  ),  SCHEMA. ERROR  ); 

CHECK.STATUS!  MtCrootoObjoct!  Aconnoction.fron,  "relationship"  ), 

SCHEMA. ERROR  ) ; 

CHECK.STATUS!  MtSetVoluo!  connection.! ron,  "oxtornnl  noma”,  MTSTRIMG, 

"connection  Iron" ,  0  ) ,  SCHEMA. ERROR  ) ; 

CHECK.STATUS!  MtAddSuccossor!  connaction.f ran ,  "successors",  port.clMS,  HTAPPEHD  ), 
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SCHEMA.ERROR  ) ; 

C HECK. STiTTJS  (  Mt AddSuccessor (  connection.f rom ,  "lnitrM  relat ionship" , 
part. connected. to,  MTAPPEHD  ),  SCHEMA.ERROR  ); 

CHECK. STATUS(  MtCreeteObjectC  Apart. connected. froa,  "relationship"  ) , 

SCHEMA.ERROR  ) ; 

CHECK_STATUS(  MtSetValueC  part. connect ed.f rom,  "«it«rul  mm",  MTSTRIHG, 

“part  connected  froa" ,  0  ) ,  SCHEMA .ERROR  ) ; 

CHECK_STATUS(  MtSetValueC  part. connected.f rom ,  "cardinality",  MTS32.LIST, 
part. cardinality,  1,  2  ),  SCHEMA. ERROR  ); 

CHECK. STATUS (  Mt AddSnccaaaor (  part. eonnactad. from ,  "snccaaaars" , 
connect ion. class,  MTAPPEHD  ),  SCHEMA. ERROR  ); 

CHECK. STATUSC  MtCraataObjact(  Aconnaction.to,  "relationship"  ), 

SCHEMA. ERROR  ) ; 

CHECK. STATUSC  MtSatValuaC  connaction.to,  "external  naaa",  MTSTRIHG, 

"connaction  to” ,  0  ) ,  SCHEMA .ERROR  ) ; 

CHECK. STATUSC  Mt AddSnccaaaor C  connaction.to,  "anecaaaora" ,  part.claaa,  MTAPPEHD  ), 
SCHEMA.ERROR  ) ; 

CHECK. STATUSC  Mt AddSnccaaaor C  connaction.to,  n invar a a  ralationship”, 
part.connactad.froa,  MTAPPEHD  ),  SCHEMA.ERROR  ); 

//  add  anecaaaora 

CHECK.STATUSC  Mt AddSnccaaaora C  part.claaa,  "attribntaa" ,  6,  part. id, 
part.typa,  part.z,  part.y,  part.bnild  ),  SCHEMA.ERROR  ); 

CHECK.STATUSC  Mt AddSnccaaaora C  part.claaa,  "rolationahipa” ,  2, 
part. eonnactad. to,  part.connactad.froa  ),  SCHEMA.ERROR  ); 

CHECK.STATUSC  Mt AddSnccaaaora C  connaction_claaa ,  "attribntaa",  2, 
connaction. type,  connect ion. length  ),  SCHEMA.ERROR  ); 

CHECK.STATUSC  Mt  AddSnccaaaora  C  connection.daaa ,  "rolationahipa” ,  2, 
connaction. froa ,  connection. to  ),  SCHEMA.ERROR  ); 

CHECK.STATUSC  MtConmitTranaactionC  0,  0  ), 

"ERROR [create. schema]  unable  to  commit  current  tranaaction”  ); 

> 

////////////////////////////////////////////////////////////////////// 

void  remove. achemaC  ) 

DEBUG. IHITC  "MAIH"  ,  "remove.schema"  ) ; 

DEBUG. OUTC  "entering" ,  1  ); 

MtKay  connaction. claaa,  connection. type,  connect ion. length; 

MtKey  connection.from,  connaction.to; 

MtKay  part.claaa,  part. id,  part.typa,  part.z,  part.y,  part.bnild; 

MtKay  part.connectad.from,  part. connected. to; 

CHECK.STATUSC  MtStaxtTranaactionC  0  ) , 

"ERROR [ramova.achama]  enable  to  atart  a  tranaaction"  ) ; 

//  lookup  the  schema  for  tha  part  claaa 

CHECK.STATUSC  MtGetClasaC  kpart.class,  "part"  ), 

"Error [remove. schema]  can't  find  part  claaa"  ); 

CHECK.STATUSC  MtGat Attribute C  Rpart.id,  "part  id"  ), 

"Error [remove. schema]  can't  find  part  id  attribute"  ); 

CHECK.STATUSC  MtGat Attribute C  Apart .type ,  "part  type"  ) , 

"Error [remove. schema]  can’t  find  part  type  attribute"  ); 

CHECK.STATUSC  MtGat Attribute C  Apart.z,  "part  x"  ), 

"Error [ramova.achama]  can’t  find  part  z  attribute"  ); 

CHECK.STATUSC  MtGat  Attribute  C  Apart  _y ,  "part  y"  ), 

"Error tramova.achama]  can’t  find  part  y  attribute"  ); 

CHECK.STATUSC  MtGat AttributaC  tpart.build,  "part  build"  ), 

"Error [ramova.achama]  can’t  find  part  build  attribute”  ); 

CHECK.STATUSC  MtGetRelationahipC  Apert. connect ed.to ,  "part  connected  to”  ), 

"Error [ramova.achama]  can’t  find  part  eonnactad  to  relationship"  ); 
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CHECK. STATUS (  HtGetRelationshipC  Apart. connectad.fro*,  "part  connected  from"  ), 

"Error [remove.schema]  can't  find  part  connactad  fro*  relationship"  ); 

//  lookup  tba  schema  for  tha  connaction  clasa 

CHECK. STATUS (  MtGet Class (  Aconnact ion. clasa ,  "connaction"  ), 

"Error  [remove  .schesuO  can’t  find  connaction  clasa”  ); 

CHECK. STATUS(  Ht Get Attribute (  Aconnact ion. type,  "connaction  type"  ), 

" Error [remove _ s chema]  can't  find  connaction  typa  attribute"  ); 

CHECK_STATUS(  HtGetittributeC  Aconnection.length,  "connaction  length"  ), 

"Error [raaove.sdraaa]  can’t  find  connaction  length  attributa"  ); 

CHECK. STATUS (  HtGetRelationshipC  Aconnact ion. to,  "connection  to"  ), 

"Error [remove.schema]  can’t  find  connaction  to  relationship"  ); 

CHECK. STATUS (  HtGetRalationshipC  Aconnact ion.fro*,  "connection  fro*"  ), 

"Error [remove.schema]  can’t  find  connaction  fro*  ralationahip"  ); 

//  ranova  tha  part  class  schana 

CHECK. STATUS (  HtRaaovaOb jact (  part. class  ), 

"Error [re*ova_ schema]  can’t  ranova  part  class”  ) ; 

C HECK. STATUS (  HtRaaovaObjact (  part.id  ) , 

"Error [remove.schema]  can’t  ranova  part  id  attributa"  ) ; 

CHECK. STATUS  (  HtReinoveObject(  part. type  ), 

"Error [remove.schema]  can’t  raaova  part  typa  attributa"  ); 

CHECK. STATUS (  MtRenoveOb ject (  part.x  ), 

"  Error  [ranova  _  s  chema]  can’t  raaova  part  x  attribute''  ); 

CHECK. STATUS (  HtRaaovaObjact (  part.y  ), 

"Error [remove .schana]  can’t  ranova  part  y  attributa"  >; 

CHECK. STATUS (  HtRaaovaObjact (  part. build  ), 

"Error [remove. schema]  can’t  raaova  part  build  attributa"  ); 

CHECK. STATUS(  HtRaaovaObjact (  part .connactad. to  ), 

"Error [ramove. schema]  can’t  raaova  part  connactad  to  relationship”  ); 

CHECK. STATUS (  HtRaaovaOb jact (  part.connactad.froa  ), 

"Error [ranova .schema]  can’t  raaova  part  connected  from  relationship"  ); 

//  raaova  the  connection  class  schema 

CHECK. STATUS (  HtRaaovaOb  jact (  connect ion. class  ), 

"Error [raaova. schema]  can’t  raaova  connaction  class"  >; 

CHECK. STATUS(  HtRaaovaObjact (  connect ion. type  ) , 

"Error [remove .schema]  can’t  raaova  connection  typa  attributa"  ); 

CHECK_STATUS(  HtRaaovaObjact (  connect ion. length  ), 

"Error [remove. schema]  can’t  raaova  connection  length  attributa"  ); 

CHECK. STATUS(  HtRaaovaOb  jact (  connaction.to  ), 

"Error [remove.schema]  can’t  raaova  connection  to  relationship''  ); 

C HECK. STATUS (  HtRaaovaOb jact (  connect ion.fron  ) , 

"Error [remove.schema]  can’t  ramove  connaction  from  relationship”  ) ; 

CHECK_STATUS(  MtConmitTransaction(  0,  0  ), 

"ERROR [remove.schema]  unable  to  commit  currant  transaction”  ); 

> 

imiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiimmiiiimimium 

2.2.11  params.hh 

The  source  code  for  the  file  params.hh  is  listed  below.  This  file  defines  several  constant  parameters  which 
the  001  benchmark  implementation  requires. 

•ifndaf  _ PARAMS.HH 

•define  _ PARAMS.HH 

/• 

•••••  <••••  • 

*  •  •  •  •• 

•  •  •  *  •  • 

f  «  •  •  •  HATISSE 
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•  •  *  •  • 

•  •  •  •  • 

•Hit  •••••  «•••» 

"Object  Operations  Benchmark"  R.G.G.  Cattail  and  J.  Skeen 

Son  Microsystems 

ACM  Transact ions  on  Databaaa  Sy stans  Vol.  17,  Mo.  1,  March  1992,  Pages  1-31. 
params.hh 

Air  Forca  Institute  of  Technology 
Timothy  J.  Balloraa 
31  Jnl  1993 

*/ 

//  definition  of  the  number  of  connections  for  aach  part  (3  for  001) 

•define  HUM.COMMECTIOMS  3 

//  definition  of  the  depth  of  the  forward  and  reverse  traversals  (7  for  001) 
•define  TRAVERSAL.DEPTH  7 

//  definition  of  the  locality  of  reference  valne  (1  for  001  which  means  that 
//  90%  of  the  connections  are  randomly  selected  among  the  1%  of  the  parts 

//  which  are  closest  (in  terms  of  part  id) ,  and  the  rest  of  the  connections 
//  are  made  to  any  randomly  selected  part . 

•define  LOCAL ITT.OF.REPEREMCE  1 

//  definitions  to  create  a  10  year  range  of  dates 

•define  JAM. 1.1980  31S560800 

•define  JAN.1.1990  631170000 

//  001  benchmark  parameters 

•define  MUM.BEHCHMARK.ITERATIOMS  10 

•define  MUM.L00KDP  1000 

•define  MUM. FORWARD. TRAVERSAL  1 

•define  NUH.REVERSE.TRAVERSAL  1 

•define  HUM. INSERT  100 

• audit  _ PARAMS.HH 


2.2.12  part.hh 

The  source  code  for  the  file  part.hh  is  listed  below.  This  file  defines  the  non-persistent  methods  to  be  used 
with  the  part  class. 


•ifndef  ..PART.HH 
•define  ..PART.HH 
/* 

•••••  •••*• 

«  •  *  • 

•  •  *  I  I 

•  •  •  • 

•  •  •  • 

•  •  •  • 

••••*  •••••  I 


» 

•• 

•  • 

•  MATISSE 

•*••• 


"Object  Operations  Benchmark"  R.G.G.  Cattail  and  J.  Skeen 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  Ho.  1,  March  1992,  Pages  1-31. 


part.hh 


Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
02  Aug  1993 

*/ 

MtKey  new.part(  int  new. id,  char  •new.type,  int  new.z,  int  new.y,  long  new.build  ); 
void  delete.partC  int  part .id  ) ; 
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MtKay  query. a. pert (  int  part. id  ); 

iat  forward.traveraalC  iat  corraat.laval,  MtKay  db.part  ); 
iat  reverae.traveraalC  iat  corraat.laval ,  MtKay  db.part  ); 
•andif  _ PART.HH 


2.2.13  part.cc 

The  source  code  for  the  file  part.cc  is  listed  below.  This  file  implements  the  non-persistent  methods  for  the 
part  class. 

/* 


#####  ••••• 

•  •  •  • 

•  •  •  * 

•  •  *  i 

•  •  #  • 

•  •  •  • 

Mill  Mill 


*• 

•  • 

•  MATISSE 

Hilt 


"Objact  Dparatioaa  Baacboark”  R.G.G.  Cattail  aad  J.  Skaaa 

Son  Microayatema 

ACM  Traaaactioas  on  Databasa  Sy atoms  Vol.  17,  Ho.  1,  March  1992,  Page*  1-31. 


part.cc 

Air  Forca  Inatitota  of  Technology 
Timothy  J.  Halloran 
02  Aog  1993 

Baviaiona : 

16  Sop  1993  -TJH-  Changed  oao  of  aeveral  API  fonctiona  to  Mt_*  functiona, 

(which  oaa  OIDa,  rather  than  character  atringa)  from 
Mt*  fonctiona.  Thia  waa  racommandad  by  MATISSE  to 
improve  performance. 

•/ 

# include<matiaae . h> 
tiacloda<atdlib.h> 
t includetdebug . hh> 
tine lode "port .hh" 

•iacloda"ool .hh" 

•include "nullproc . hh" 
tiacloda"parama .hh" 
tiadoda"macroa  .hh" 

miiiiiiiiiiiiiiiiiiiiuiimiiiiiimiiiimiiiiiiiiiiiiniiiiiiiiii 

MtKay  aaw_part(  iat  new. id,  char  *nee.type,  int  aaw.z,  iat  new.y,  long  new.boild  ) 

DEBUG. IMIT(  "PART"  ,  "neo.part"  ); 

DEBUG.OUT (  "entering" ,  1  ); 

MtKay  now.part; 

CHECK.STATUSC  Mt.CraateObjactC  knew.part,  ool : : part .class  ), 

"ERRORCnew.part]  oaable  to  create  a  part  inatanca"  ) ; 

CHECK.STATUSC  Mt.SatValoo(  new. part,  ool : .part. id,  MTS32,  Aaaw.id,  HULL  ), 
"ERRORCnew.part]  oaable  to  aat  the  part  id"  ) ; 

CHECK.STATUSC  Mt.SatValuaC  new. part ,  ool : : part. type,  MTSTRIHG  ,  now. type,  HULL  ), 
"ERRORCnew.part]  unable  to  aat  the  part  id"  ) ; 

CHECK.STATUSC  Mt.SatValuaC  new .part,  ool : :part_x,  MTS32,  tnow.z,  HULL  ), 
"ERRORCnew.part]  onabla  to  aat  the  part  z"  ) ; 

CHECK.STATUSC  Mt.SatValuaC  new. part,  ool::part_y,  MTS32,  kaaw.y,  HULL  ), 
"ERRORCnew.part]  oaable  to  aat  the  part  y”  ) ; 

CHECK.STATUSC  Mt.SatValoaC  new.part,  ool : :part.boild,  MTS32,  Anew. build,  HULL  ), 
"ERRORCnew.part]  onabla  to  aat  the  part  boild”  ) ; 
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return  (  new .part  ) ; 

} 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiiiiniiiiiiiiiiii 

void  delete.part!  int  part. id  ) 

{ 

DEBUG. INIT(  "PART"  ,  "delete.part"  ); 

DEB0G_OUT(  "entering" ,  1  ); 

MtKay  a. connect ion ; 

HtStraam  connect ion. stream; 

MtKay  connections_to_delete[100] ;  //  hope  this  is  large  enough! 
int  num. connect ions .to.dalet a ; 

MtSize  num. of .parts; 
char  part.id_string[20] ; 

MtKay  atable.of .parts ; 

//  query  the  part  which  is  going  to  be  delated 

//  (don’t  use  the  "query. a.part"  function  because  if  there  is  nora  than 
//  one  (or  zero)  we  still  want  the  parts  deleted) 
sprintf(  part.id.string,  "Xd" ,  part. id  ); 

CHECK. STATUS(  Mt_MGetObjectsFromEP(  ftnum.of .parts ,  Atable.of .parts , 
part.id.string,  ool: : part. id,  ool : : part. class  ), 

"ERROR [deleta.part]  object  get  from  entry  point  failed"  ) ; ; 

while  (num.of .parts —  )  { 

//  need  to  remove  all  connections  to  and  from  this  part  to  keep  the 
//  database  consistent 

//  delete  all  the  connections  from  this  part  to  other  parts 
num.connactions.to.delete  «  0; 

CHECK .STATUS (  Mt_OpenRelStream(  Aconnection.stream, 

table.of.parts [num.of .parts] ,  ool :: part .connected.to  ), 

"ERROR [deleta.part]  unable  to  open  a  stream  on  the  connections"  ) ; 
while  (  MtNextObject(  connection.stream,  ^.connection  )  MATISSE.SUCCESS)  { 
connections_to_delete[num_connections.to.delete]  »  a. connection; 
num_connections.to_delete++; 

DEBOG_OUT(  "found  a  connection  to",  2  ); 

} 

CHECK. STATUS(  MtCloseStream(  connection.stream  ) , 

"ERROR [deleta.part]  can't  close  the  connection  stream"  ); 

//  delete  all  the  connections  found  (the  inverse  relationship  will  take 
//  care  of  the  other  side  of  the  relationship) 
while  (num_connections.to_delete — )  { 

CHECK.  ST  ATUS  ( 

MtRemoveObject(  connections.to.delete[num.connections.to_delete]  ), 

"ERROR [delete.part]  unable  to  remove  a  connection  object"  ) ; 

> 

//  delete  all  the  connections  to  this  part  from  other  parts 
num.connactions.to.delete  •  0; 

CHECK. STATDS(  Mt.OpenRelStream(  Aconnection.stream, 

table.of.parts [num.of. parts] ,  ool part. connected.from  ), 

"ERROR [delete.part]  unable  to  open  a  stream  on  the  connections"  ); 
vhile  (  MtNextObject (  connection.stream,  Aa.connection  )  ■■  MATISSE.SUCCESS)  { 
connections_to.delete[num.connections_to.delete]  ■  a.connaction; 
num. connections. to_delete++ ; 

DEBUG_0UT(  "found  a  connection  from",  2  ); 

> 

CHECX.STATUS(  MtClosaStream(  connection.stream  )  , 

"ERROR [delete.part]  can’t  close  the  connection  stream"  ); 

II  delete  all  the  connections  found  (the  inverse  relationship  sill  take 
II  care  of  the  other  side  of  the  relationship) 
while  (num.connections.to.delete--)  { 
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CHECK.STATUSC 

MtRemoveObject (  connections. to.d*lete[num_connection*.to.del*te]  ), 

"ERROR [delete.part]  unable  to  remove  a  connection  object"  ) ; 

> 

//  remove  the  part 

CHECK. STATUS (  MtRemoveObject (  table. of . parts [num.of. part*]  ), 

"ERROR [delete.part]  unable  to  remove  an  part  object"  ) ; 

> 

free(  table. of .part*  ) ; 

> 

llllllllllllllimilllllllllllllllllllllllllllllllllllllllllllllllllll 

MtKey  query_a_part(  int  part. id  ) 

{ 

DEBUG.INITC  "PART"  ,  "query .a.part"  ); 

DEBUG.OUTC  "entering",  1  ); 

MtKey  etable.of. ports; 

MtSize  num.of .parts ; 
char  part.id_atring[20] ; 

MtKey  return.port.id; 

//  query  the  part 

sprintf(  part.id.string,  "Xd" ,  part.id  ); 

CHECK_STATUS(  Mt.MGetObjectsFromEPC  tnum.of .parts ,  Atable.of .parts , 
part.id.string,  ool:  -.part.id,  ool: -.part. class  ), 

"ERROR[query_a_part]  MATISSE  failed  query  for  a  part"  ) ; 
if  (  num.of. parts  !»  1  )  •{ 

MtPErrorC  "ERROR [query .a.part]  found  none  (or  to  many)  parts"  ) ; 

> 

return.part.id  *  table.of .parts [0] ; 
freeC  table.of .parts  ); 

return  (  return.part.id  ) ; 

> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

int  f orward. traversal (  int  current.level ,  MtKey  db.part  ) 

< 

DEBUG.INITC  "PART"  ,  "forward. traversal"  ); 

DEBUG_0UT(  "entering",  1  ); 

MtKey  a. connection; 

MtStream  connect ion. stream; 

MtS32  db. part.id ; 

MtSize  num.of .parts ; 

MtChar  part_type[ll] ; 

MtSize  size; 

MtKey  ‘table.of .parts ; 

MtType  type; 
int  z; 
int  y; 

//  read  the  part's  "id" 
size  »  sizeofC  db.part. id  ); 

CHECK_STATUS(  Mt.GetValueC  db.part,  ool: ;part.id,  Atype,  tdb.part.id,  NULL, 
tsizc  NULL  ) , 

-'ERR^R  [forward,  traversal]  unable  to  get  value  of  part  id"  ); 

II  read  the  part's  "type" 
size  »  sizeofC  part.type  ); 

CHECK.STATUSC  Mt.GetValueC  db.part,  ool :: part.type,  Atype,  part.type,  NULL, 
tsize ,  NULL  ) , 

"ERROR [forward. traversal]  unable  to  get  value  of  part  type"  ) ; 

//  read  the  part’s  "x"  and  "y"  values 
size  •  sizeofC  x  ); 

CHECK.STATUSC  Mt.GetValueC  db.part,  ool::part.x,  Atype,  Ax,  NULL,  Asize,  NULL  ), 
"ERROR [forward. traversal]  unable  to  get  value  of  part  x"  ) ; 
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size  ■  sizeof (  y  ); 

CHECK. STATUS(  Mt.GetValue(  db.part,  ool : : part.y ,  ktype,  ky,  MULL,  ksize,  HULL  ), 
"ERROR [f orvard. traversal]  unable  to  get  value  of  part  y"  ) ; 

DEBUG. 0UT(  aprintf(  BUG,  "part  id  X6d  (level  Xd) " ,  db.part. id,  current. level  ),  2  ); 

//  call  the  required  null  procedure 
null.procedureC  z,  y,  part. type  ); 

int  num.part (.connected  »  0; 

if  (  current .level  <  TRAVERSAL. DEPTH  )  { 

CHECK.STATUS(  Mt_OpenRelStream(  kconnection.stream,  db.part, 
ool : : part .connected. to  ) , 

"ERROR[forvard_ traversal]  unable  to  open  a  stream  on  the  connections"  ) ; 

while  (  MtNextObject (  connection.stream,  ka.connection  )  ■«  MATISSE.SUCCESS  )  { 

CHECK.STATUSC  Ht.HGetSuccessors(  knum. of .parts ,  ktable.of .parts , 

(.connection,  ool :: connection. to  ), 

"ERROR [forward. traversal]  unable  find  successors  of  connection  to"  ) ; 
if  (  num.of .parts  !»  1  )  { 

MtPErrorC  "ERROR [forward. traversal]  found  none  (or  to  many)  parts”  ) ; 

> 

num. parts. connected  +■ 

forward. traversal (  current.level  +  1,  table.of .parts [0]  ); 

> 

CHECK .STATUS (  MtCloseStream(  connection.stream  ) , 

"ERROR [forward. traversal]  can’t  close  the  connection  stream"  ); 

} 

return  (  num.part a .connected  +  1  ) ; 

y 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiuiiiiimmimiiiimii 

int  revarse_travnrsal(  int  current.level,  HtKay  db.part  ) 

•C 

DEBUG. IN IT (  "PART”  ,  "reverse. traversal"  ); 

DEBUG.0UT(  "entering”,  i  ); 

HtKey  (.connection; 

MtStream  connection.stream; 

HtS32  db.part. id; 

MtSize  num.of .parts; 

HtChar  p»rt.type[ll] ; 

MtSize  size; 

MtKey  ‘table. of .parts ; 

MtType  type; 
int  x; 
int  y; 

//  read  the  part’s  "id” 
size  ■  aizeof(  db.part. id  ); 

CHECK.STATUS(  Mt.GetValue(  db.part,  ool : -.part.id,  fctype,  kdb.part.id,  NULL, 
ksize ,  NULL  ) , 

"ERR0R[reverse. traversal]  unable  to  get  value  of  part  id”  ) ; 

//  read  the  part’s  "type” 
size  ■  sizeof(  part .type  ); 

CHECK. STATUS (  Mt_GetValue(  db.part,  ool :: part  .type,  ktype,  part. type,  NULL, 
ksize ,  NULL  ) , 

"ERROR[reverse. traversal]  unable  to  get  value  of  part  type"  ) ; 

//  read  the  part’s  "x"  and  "y"  values 
size  ■  sizeof(  x  ); 

CHECK.STATUS(  Mt.GetValue(  db.part,  ool::part_x,  ktype,  kx,  NULL,  ksize,  NULL  ), 
”ERROR[reverse_traversal]  unable  to  get  value  of  part  x"  ) ; 
size  >  sizeof(  y  ); 
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CHECK. STATUS (  Mt.GetValueC  db.part,  ool::part.y,  Atype ,  Ay,  HULL,  Asize,  HULL  ), 

"ERROR [reverse, traversal]  unable  to  gat  value  of  part  y"  ) ; 

DEBUG_0UT(  sprintf(  BUG,  "part  Id  X6d  (laval  Xd)",  db.part.id,  currant. level  ),  2  ); 

//  call  the  required  null  procedure 
null.procadure(  z,  y,  part .type  ); 

int  num.parts. connected  *  0; 

if  (  current. level  <  TRAVERSAL. DEPTH  )  { 

CHECK.STATUSC  Mt.OpenRelStreamC  Aconnection.it ream,  db.part, 
ool : • part .connected. from  ) , 

"ERROR[reverse_ traversal]  unable  to  open  a  stream  on  the  connection*"  ) ; 

while  (  HtNextObjectC  connect ion.itr earn,  ta. connection  )  **  MATISSE.SUCCESS  )  < 

CHECK_STATUS(  Ht_HGetSuccesaora(  Anum.of .parts,  Stable. of .parti, 
a. connection,  ool : : connection.from  ), 

"ERROR [reverse. traversal]  unable  find  successors  of  connection  from"  ) ; 
if  (  num. of .parts  !*  1  )  { 

MtPError (  "ERROR [reverse. traversal]  found  none  (or  to  nany)  parts"  ) ; 

> 

num.parts. connected  +* 

reverse.traversaK  current. level  +  1,  table.of . parts [0]  ); 

> 

CHECK.STATUSC  HtCloseStrearaC  connection.atreaa  ), 

"ERROR [reverse. traversal]  can’t  close  the  connection  stress”  >; 

> 

return  (  num. parts. connected  ♦  1  } ; 

> 

////////////////////////////////////////////////////////////////////// 

2.3  ObjectStore  Implementation 

This  section  lists  the  source  code  for  the  ObjectStore  implementation  of  the  001  benchmark  created  for  this 
research.  The  implementation  was  created  on  version  2.0.1  of  ObjectStore  using  the  C++  DML  API.  The 
ObjectStore  001  benchmark  source  code  builds  one  executable  program,  the  bench  program.  The  source 
files  in  this  implementation  are  shown  in  Figure  3.  The  files  debug.hh,  dice.hh,  dice.cc,  pmmlcg.h,  pmmlcg.c, 
stopwtch.hh,  and  stopwtch.cc  are  not  listed,  because  they  were  described  (with  a  full  source  code  listing)  in 
[2].  The  following  subsections  list  the  source  code  for  the  other  files  shown  in  Figure  3. 

2.3.1  Makefile 

The  Makefile  for  the  ObjectStore  001  benchmark  source  code  is  listed  below. 

include  $ (OS.ROOTDIR) /etc/ostore  .ok 
OS.COHPILATION_SCHEMA_DB.PATH* 

prosier :/usr3/databases/ostore.data/ool .comp. schema 
OS.APPLICATIOM_SCHEMA_DB.PATH* 

prosier : /uar3/databases/ostore_data/ool . app. schema 


•  If  debug  output  is  desired  uncomment  the  "CCFLAGS"  definition  sith 

•  "-DDEBUG"  in  it.  Only  one  definition  should  be  uncommented. 

• 

•CCFLAGS— I.  -DDEBUG  -gx 
CCFLAGS*-!.  -gx 
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ObjectStore 
001  Benchmark 
Implementation 
Directory 


—  Makefile 

—  bench.cc 

—  connect,  hh 

—  connect. cc 

—  debug,  hh 

—  dice.hh 

—  dice.cc 

—  nullproc.hh 

—  nullproc.cc 

—  ool.hh 

—  ool.cc 

—  params.hh 

—  part.hh 

—  part.cc 

—  pmralcg.h 
pmmlcg.c 
stopwtch.hh 
stopwtch.cc 

Figure  3:  ObjectStore  001  Benchmark  Source  Code  Files 
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LDFLAGS—  g 
LDLIBS>-loscol  -lot 

SOURCES»bench . cc  connect. cc  nallproc.cc  ool.ee  part.ee  atopnteh.ee 
dico.ee  pmalcg.c 

OBJECTS»bench . o  eonnoct.o  nullproc.o  ool.o  part . o  atoprtch.o  dico.o  ponlcg.o 
EXECUTABLES-bench 

all:  ({EXECUTABLES} 

bench:  bench. o  ool.o  part .o  eonnoct.o  nullproc.o  atopntch.o  dico.o  ponlcg.o 
({LIBK.ee}  -o  bench  \ 

bench. o  ool.o  part . o  eonnoct.o  nullproc.o  atoprtch.o  dice.o  ponlcg.o  \ 
({LDLIBS} 

clean: 

na  -1  ({EXECUTABLES}  ({OBJECTS} 

oarm  -1  /uar3/databaaea/oatore_data/ool .coop.achena 

depend: 

oanakedep  .depend  ( (CCFLAGS)  ((CPPFLAGS)  -filea  ((SOURCES) 
include  .depend 


2.3.2  bench.cc 

The  source  code  for  the  file  bench.cc  is  listed  below.  This  file  provides  a  driver  for  the  benchmark.  It  consists 
of  a  main  program  which  connects  to  the  Itasca  database,  then  performs  the  benchmark  operation  specified 
on  the  command  line. 


/* 


••••• 

t  •  • 

•  •  • 

•  •  • 

•  *  * 

<  •  * 


* 

*• 

•  • 

•  OBJECTSTORE 

t 

••••• 


"Object  Operationa  Benchmark"  R.G.G.  '’-ttell  and  J.  Skeen 

Sun  Microsystems 

ACM  Transaction*  on  Database  Systems  Vol.  17,  No.  1,  March  1992,  Pagea  1-31. 
bench . cc 


Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
06  Jul  1993 


This  program  performs  all  the  benchmark  measurements  for  the  001  benchmark. 
The  folloving  benchmark  operationa  are  supported:  database  creation  (and 
load),  lookup,  forward  traversal,  reverse  traversal,  insert,  and  database 
clear  (and  destroy) . 

Revisions: 

19  Jul  1993  -TJH-  Added  support  to  "clear”  the  benchmark  database. 

18  Aug  1993  -TJH-  Added  code  so  that  ObjectStore  would  not  try  to  read  the 
entire  segment  at  a  time  (bad  for  large  database)  and 
also  set  the  fetch  policy  to  os.fetch.page. 

18  Aug  1993  -TJH-  Changed  out  random  number  generator. 

•/ 

•include<ostore/ostore . hh> 
tine .  ,'de<ostore/eoll.hh> 
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•includ*<ostor*/r*lat . hh> 

•inelud*<stdio . h> 

*include<stdlib . h> 

•includ*<d*bug . hh> 

•include "oo 1 . hh" 

Matin*  TRUE  1 
Matin*  FALSE  0 

os.database  *db  ■  0;  //  required  to  ba  bar*  by  ObJactStor* 

////////////////////////////////////////////////////////////////////// 

main (  int  urge,  char  »*argv) 

< 

DEBUG. INIT(  "MAH"  ,  "main"  ); 

DEBOG. DOT (  "entering",  1  ); 

//  chack  tha  command  line  arguments 
it  (  arge  <  6)  ■( 

tprintK  atdarr,  "bench  [operation]  [databana]  " 

” [•  ot  parts]  [random  stream] \n"  ) ; 
return  1;  //  azit  tha  program 

> 

char  ^operation  »  argv[l] ; 

it  (  ! (  !strcmp(  operation,  "load”  )  I  I  !strcmp(  operation,  "lookup"  )  1 1 
!strcmp(  operation,  "ftrav"  )  II  !strcmp(  operation,  "rtrav"  )  1 1 
!strcmp(  operation,  "insert"  )  II  !strcmp(  operation,  "clear"  )  )  )  { 
tprintK  atdarr,  "ERRORpoain]  tha  operation  must  ba  \"load\",  \"lookup\",  " 
"V'ftravX",  \"rtrav\" ,  \”insart\",  or  \"cl*ar\"\n”  ); 
return  1;  //  azit  tha  program 

} 

char  *db_nam*  •  argv[2]; 

int  num.parts  *  atoi(  argv[3]  ); 

if  (  (  num.parts  !■  20000  )  *A  <  num.parts  !«  200000  }  ) 

f print! (  stdarr,  "WARRING [main]  tha  number  of  parts  is  not  20,000  or  200,000\n"  ); 
int  stream  ■  atoi(  argr[4]  ); 
it  (  (  stream  <  1  )  II  (  stream  >  100  )  )  { 

tprintK  stdarr,  "ERR0R[main]  the  stream  is  not  batnaan  1  and  100\n"  ); 
return  1;  //  azit  the  program 

} 

//  output  a  program  title 

printK  ”001  BENCHMARK  [0BJECTST0RE]  Air  Fore*  Institute  of  Technology \n"  ); 
printK  "  ObjectStor*  database  \"Xs\"  with  %d  parts  (random  stream  Xd).\n", 
db.name,  num.parts,  stream  ); 

//  initialize  ObjectStor* 
objactstore: :initialize(  ); 
os. collection: :initialize(  ); 

//  open  (or  create  for  "load"  operation)  the  database 
if  (  !strcmp(  argv[l],  "load"  )  ) 
db  *  os .database: : create (  db.name  ); 

els* 

db  ■  os. database: :open(  db.name  ); 

//  tell  ObjectStor*  not  to  read  the  entire  segment 
db->set_r*ad_whole.segm*nt(  FALSE  ); 

//  set  the  fetch  policy  of  ObjectStor*  to  fetch  a  number  of  bytes  at  a  time 
db->set_f etch. policy (  os.fatch.page,  FETCH. SIZE.IR. BYTES  ); 

//  create  a  single  001  benchmark  object 
ool  ool. benchmark (  num.parts,  stream  ); 
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//  perform  th*  buchurk  — umu nt  requested  on  the  command  lina 
if  (  !strcmp(  operation,  "load"  )  )  < 
print f(  "  L0AD\n"  ); 
ool.banchaark. load (  ); 

) 

alsa  if  (  latrcap(  oparation,  HlooknpH  )  )  { 
printf  (  '•  L00KtJP\nM  ); 
ool.banchaark . lookup.aeasura (  ); 

> 

alsa  if  (  !atrcap(  oparation,  "ftrav"  )  )  { 
printf  (  "  FORWARD  TRAVERSAIAn"  ); 
ool.banchaark . forsard.tr aver sal. measure (  ); 

> 

also  if  (  !strcap(  oparation,  "rtrav”  )  )  { 
printf (  H  REVERSE  TRAVERSAIAn"  ); 
ool.banchaark. reverse. traversal.aeasnraC  ); 

> 

alsa  if  (  !strcap<  oparation,  "insert"  )  )  { 
printf (  M  IRSERTW  ); 
ool.banchaark . insart .aaasura (  ) ; 

} 

alsa  if  (  !strcap(  oparation,  "clear"  )  )  { 
printf  (  "  CLEAR\n"  ); 
ool.banchaark. claar (  ); 

> 

db->cloaa(  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

2.3.3  connect.hh 

The  source  code  for  the  file  connect.hh  is  listed  below.  This  file  defines  the  connection  class. 

•ifndef  _ CONNECT. HR 

fdafina  ..CORKECT.HH 

/* 

S***»  • 

«  •  •  •  •• 

•  •  •  •  •  • 

*  •  •  «  •  OBJECTSTORE 

•  •  *  *  • 

•  •  *  •  » 

»####  ••••• 

"Object  Operations  Banchnark”  R.6.G.  Cattail  and  J.  Skeen 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  Bo.  1,  March  1992,  Pages  1-31. 
connect.hh 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
18  Jon  1993 

*/ 

extern  os. database*  db; 
class  part; 

class  connection  { 
public: 

part  *from  invar se.maaber  connected. to; 
part  *to  invar sa.membar  connected. from ; 
char  typefll] ; 
int  length; 
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connect ion (  part  *new_froe ,  part  *neB.to,  char  *nev.type,  int  new. length  ) ; 
'connect ion (  ) ; 

}; 

tend if  ..COBBECT.BB 


2.3.4  connect.cc 

The  source  code  for  the  file  connect.cc  is  listed  below.  This  file  implements  the  methods  for  the  connection 
class. 


/• 


•MM  ••••• 
•  •  • 

•  •  • 

•  *  • 

•  •  • 

•  •  « 

•••••  •••*• 


* 

•• 

•  • 

•  OBJECTSTORE 

••••• 


"Object  Operations  Benchmark"  R.6.G.  Cattail  and  J.  Skeen 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  So.  1,  March  1992,  Pages  1-31. 


connect . cc 


Air  Force  Institute  of  Technology 
Timothy  J.  Bailor an 
19  Jon  1993 

Revisions : 

06  Jul  1993  -TJB-  Changed  all  the  debug  output  to  use  the  "debug. hh"  macros. 
29  Jul  1993  -TJB-  Added  a  destructor  so  that  connection  objects  can  delete 
themselves . 

•/ 

•include<ostore/ost ore . hh> 

•indude<ostore/coll .  hh> 
t include<os tore/r elat . hh> 

•include<debug . hh> 

• include "part . hh" 

•indude"connect  .hh” 

////////////////////////////////////////////////////////////////////// 
connection: connection (  part  *nev.from,  part  •nev.to ,  char  enev.type, 
int  nev. length  ) 

< 

DEBUG. IRIK  "CORRECTIOR"  ,  "connection :: connection"  ); 

DEBUG. OUT!  "entering",  1  ); 

from  «  new. from; 
to  ■  nev.to; 

strcpy(  type,  nev.type  ); 
length  ■  nev. length; 

> 

////////////////////////////////////////////////////////////////////// 

connection: : 'connection!  ) 

{ 

DEBUG. IRIT(  "COBBECTIOR"  ,  "connection: : 'connection"  ); 

DEBUG. OUT (  "entering" ,  1  ) ; 

from->connected_to. remove!  this  ); 
to->connected_from. remove!  this  ); 

> 
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2.3.5  nullproc.hh 

The  source  code  for  the  file  nuilproc.hh  is  listed  below.  This  file  defines  the  null  procedures  which  are  required 
to  be  called  at  certain  points  in  the  OOl  benchmark. 

•ifndef  _ NULLPROC.BH 

»def in#  ..IUU.PROC.Hfl 

/• 

•••*•  •*•••  • 

•  «  •  *  *• 

•  •  •  •  •  • 

•  •  •  •  •  OBJECTSTORE 

•  •  •  •  • 

*  *  *  #  • 

*****  him  ••••• 

"Object  Operation*  Benchaark"  R.G.G.  Cattail  and  J.  Skeen 

Son  Microsystems 

ACM  Tranaactiona  on  Databaae  Systems  Vol.  17,  Mo.  1,  March  1992,  Page*  1-31. 
nuilproc.hh 

Air  Force  Inatitute  of  Technology 
Tinothy  J.  Halloran 
19  Jun  1993 

Reviaiona : 

01  Jul  1993  -TJH-  The  function  Bnull_procedure_l()"  vaa  changed  to 
"null.procedure" . 

•/ 

void  null.procedure (  int  z,  int  y,  char  *type  ); 

void  null.procedure_get.z_y(  intt  nev.z,  int A  new.y,  int  stream  ); 

•endif  __HUUJ>ROC.HH 

2.3.6  nullproc.cc 

The  source  code  for  the  file  nullproc.cc  is  listed  below.  This  file  implements  the  null  procedures  which  are 
required  to  be  called  at  certain  points  in  the  001  benchmark. 

/* 

•*••*  *****  • 

•  *  •  •  «* 

•  *  *  *  *  * 

•  *  *  *  *  OBJECTSTORE 

•  *  *  •  • 

•  *  *  *  * 

••*••  ••••*  ***** 

"Object  Operation*  Benchmark”  R.G.S.  Cattail  and  J.  Skeen 

Sun  Microayatema 

ACM  Tranaactiona  on  Database  System*  Vol.  17,  Mo.  1,  March  1992,  Pages  1-31. 
nullproc.cc 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
19  Jun  1993 

Revisions : 

01  Jul  1993  -TJH-  The  function  "null.procodure.lO"  vaa  changed  to 
"null.procedure" . 
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*/ 

A includa<  stdio . h> 

A includatdica . hh> 

Mafia*  TRUE  1 
Mafia#  FALSE  0 
static  iat  debug  *  FALSE; 

////////////////////////////////////////////////////////////////////// 

void  null.procaduraC  iat  x,  iat  y,  char  »typ#  ) 

{ 

//  this  procedure  doas  nothing  (a  anil  procadnra) 

//  (a  spacial  dabag  a chan*  is  asad  har#  so  that  avan  a  vary  saart 
//  compiler  sill  still  oak*  this  procsdor*  call) 
if  (dabag) 

printf(  "[null .procedure]  X6d  X6d  Xs\n".  x,  y,  typ*  ); 

} 

////////////////////////////////////////////////////////////////////// 

void  null_proc*dure_g*t.x.y(  intA  nas.x,  iatA  nes.y,  iat  straaa  ) 

i 

nas.x  *  (int)roll(  0,  99999,  straaa  ); 
aas.y  *  (int)roll(  0,  99999,  straaa  ); 

> 

////////////////////////////////////////////////////////////////////// 


2.3.7  ool.hh 

The  source  code  for  the  file  ool.hh  is  listed  below.  This  file  defines  the  001  class.  This  class  implements 
the  benchmark  measures  and  reporting  functions  required  by  the  OOl  benchmark.  The  001  class  is  non- 
persistent. 


•ifndaf  ..OOi.EH 
Mafia*  ..001.HH 
/* 

MAM  if  AAA 
A  A  A  A 
A  A  A  A 
A  A  A  A 
A  A  A  A 
A  A  A  A 

tiff A  AAAAA 


A 
AA 
A  A 

A  OBJECTSTORE 

A 

A 

AAAAA 


"Objact  Operations  Benchmark"  R.G.G.  Cattail  and  J.  Skeen 

Son  Microsystems 

ACM  Transactions  on  Database  Systems  Tol.  17,  lo.  1,  March  1992,  Pages  1-31. 


ool.hh 


Air  Fore*  Institute  of  Technology 
Timothy  J.  Hal lor an 
06  Jnl  1993 


Revisions: 

07  Jnl  1993  -TJB-  The  variable  "num.part.t”  vas  added  as  a  class  attribute, 
and  removed  as  a  parameter  to  every  class  method. 

•/ 

•include" connect . hh" 

f include "part .hh" 

Aiaclud*"params -hh" 

struct  benchmark. results. type  { 
double  elapsed. time; 
double  normalixad.alapsad.tima; 
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int  num.parta .connected; 

>  ; 

cleae  ool  { 

int  num.nodes.visited.in.f oruard.traversal ; 
int  nua.parta; 

benchmark. result s _ t ype  reaulta  [NDM.BENCHMARK.  ITERATIONS]  ; 
int  stream;  //  for  the  random  number  generator 
part  •creete.n.part (  int  part. id  ); 

▼old  create_connectiona(  part  *db.part,  int  num.parta  ); 
void  report. reaulta (  int  maaaurement  ); 
public ; 

ool (  int  num.parta ,  int  atream  ) ; 
void  clear (  ) ; 

void  forvard.traversal.measure(  ); 

void  inmert .measure (  ) ; 

void  load(  ) ; 

void  lookup_meaaure(  ) ; 

void  reverae.traveraal.meaaure(  ) ; 

>; 

fendif  _ 001. HH 


2.3.8  ool.ee 


The  source  code  for  the  file  ool.ee  is  listed  below.  This  file  implements  the  001  class.  This  class  implements 
the  benchmark  measures  and  reporting  functions  required  by  the  OOl  benchmark.  The  001  class  is  non- 
persistent. 

/* 


••••*  ***** 

•  •  •  • 

t  *  t  • 

•  •  t  « 

•  •  •  • 

•  *  •  • 

•*•••  •••«• 


t 

«• 

•  • 

•  OBJECTSTORE 

••••a 


"Object  Operations  Benchmark"  R.G.G.  Cattail  and  J.  Skeen 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  No.  1,  March  1992,  Pages  1-31. 


ool.ee 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
08  Jul  1993 


Revisions:  (revisions  before  06  Jul  1993  are  from  previous  programs) 

01  Jul  1993  -TJH-  Modified  to  include  "params.hh”  which  contains  the 
definitions  of  all  benchmark  parameters. 

01  Jul  1993  -TJH-  Modified  the  program  so  that  elapsed  time  measurements  for 
each  iteration  are  stored  in  an  array  (called  "results") . 
The  results  are  output  after  all  the  benchmark  timing 
is  done. 

02  Jul  1993  -TJH-  Changed  the  database  build  into  a  single  transaction. 

02  Jul  1993  -TJH-  Created  an  index  on  the  "id"  attribute  of  the  "part" 
class.  This  optimizes  part  id  lookups  (by  queries). 

06  Jul  1993  -TJH-  Combined  all  the  benchmark  measurements  into  a  single 

class,  the  "ool"  class.  The  programs  "loaddb",  "lookup", 
"ftrav",  "rtrav",  and  "insert"  vere  merged. 

07  Jul  1993  -TJH-  The  variable  "num.parta"  was  added  as  a  class  attribute, 
and  removed  as  a  parameter  to  every  class  method. 
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07  Jul  1993  -TJH-  Moved  starting  and  stoping  the  benchmark  tiaer  to  outsida 
of  tha  databasa  transactions  (i.a.  outsida  tha 
"do. transaction!  )  {  }M  statement) . 

19  Jul  1993  -TJH-  Coabinad  functions  so  they  could  ba  usad  by  "load"  and 
"insort”  to  raduca  tha  total  amount  of  coda. 

19  Jul  1993  -TJH-  Add ad  tha  "claar”  function  to  dostroy  tha  benchmark 

databasa . 

30  Jul  1993  -TJH-  Craatad  tha  "raport.rasults"  function  to  raduca  tha 
total  amount  of  coda. 

30  Jul  1993  -TJH-  Fixod  savaral  calculations  which  wars  not  using  tha 
constants  in  "params.hh"  proparly  (and  would  hava 
causad  arrors  if  tha  valuas  wars  changed) . 

39  Jul  1993  -TJH-  Fixed  a  major  bug  in  "ool :: insert. measura(  ).”  Tha  insert 
was  not  delating  the  connection  objects  which  wars  craatad. 
This  was  causing  "core”  dumps  on  tha  reverse  traversal, 
which  was  finding  thasa  connection  objects  and  trying  to 
follow  them  back  to  part  objects  (which  no  longer  existed) . 
03  Aug  1993  -TJH-  Moved  tha  removal  of  connections  from  a  part  which  is  being 
dalatad  from  tha  "ool: : insert .measure!  )"  function  to  tha 
destructor  of  tha  part  class . 

18  Aug  1993  -TJH-  Changed  out  random  number  generator. 

19  Aug  1993  -TJH-  Changed  tha  ”report_results(  )"  function  to  provide  more 

concise  output. 

*/ 

•includa<ostore/ostora ,hh> 

>includa<ostor a/coll . hh> 

•includa<ostora/ralat .hh> 

# include<stdio . h> 

•include<stdlib . h> 

•ineluda<tima . h> 

extern  ”C"  int  strftime! . . . ) ;  //  not  defined  in  the  <time.h>  header  file 

# includa<dice . hh> 

• include<stopwtch .hh> 
tinclude<dabug .  hh> 

•include”ool . hh" 

•include "connect . hh" 

•induda"part  .hh” 

•includa"nullproc .hh” 

•includa"params -hh" 

anum  {  INSERT,  FORWARD. TRAVERSAL ,  LOOKUP,  REVERSE.TRAVERSAL  >; 
static  char  apart .types  [10]  »  •( 

"part-typaO" ,  "part-typal" ,  "part-type2” ,  "part-type3",  "part-typa4" , 
"part-typeS",  "part-type6" ,  "part-type7" ,  "part-type8",  "part-typa9" 

}; 

persistent <db>  os.Set<part*>*part : : extent  ■  0; 
extern  os.database  *db; 

nniiiiuiiniiiiiiiiiiiiiiiniuiiiiimimiiiiiiiiiiiiiiiiiiiiiiii 

ool:: ool (  int  num.parts,  int  stream  ) 

DEBUG. INIT(  "001"  ,  "ool::ool"  ); 

DEBUG. 0UT(  "entering",  1  ); 

//  save  the  number  of  parts  in  the  database 
this- >num_parts  «  num.parts; 

//  save  the  stream  number  for  use  with  the  random  number  generator 
this->straam  »  stream; 

//  calculate  tha  number  of  nodes  which  will  ba  visited  in  a  forward  traversal 

//  (this  value  will  ba  usad  to  normalize  tha  measurements 

//  from  tha  reverse  traversal) 

int  nodes. at .current .level  >  MUM. CONNECTIONS; 
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num.nodes.v is ited.in.forward. traversal  *  1  ♦  BUM. CONNECTIONS; 
for  (  int  i  >  3  ;  i  <»  TRAVERSAL .DEPTH  ;  i+*  )  { 
nodes. at. currant. level  ••  HUM. CONNECTIONS ; 

num.nodes.viaited.in.foraard.traversal  nodes.at .current. level ; 

> 

DEBOG. OUT (  sprintfC  BUG,  "number  of  nodes  which  Bill  ba  viaitad  in  tha  “ 
"forward  traversal  Xd" ,  num.nodes. visited. in. forward. traversal  ) ,  2  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

void  ool::claar(  ) 

< 

DEBUG. IN IT (  "001”  ,  "ool : :claar"  ); 

DEBUG. OUT (  "entering" ,  1  ); 

do. transaction (  )  < 
db->deatroy (  ) ; 

DEBUG. OUT (  "databasa  deatroyad",  2  ); 

> 

} 

iiimiuiiiuiiiiiuiinmniiiiiunimimimiiiiiimiiiiiiiiii 

part  *ool: : craata.a.part (  int  part. id  )  //  privata 

DEBUG. IN IT (  "001"  .  "ool :: craata.a.part"  ); 

DEBUG. OUT (  "entering",  1  ); 
int  naa.x; 
int  naa.y; 

char  text_build.dateClO] ; 

//  craata  a  naa  part  in  tha  databasa 
char  *naa_typa  *  part. typas [roll (  0,  9,  stream  )] ; 
nnll.procadnra.gat.x.y (  naa.x,  naa.y,  straan  );  //  noil  procadura 

long  naa.bnild_datatioa  ■  roll(  JAN. 1.1980,  JAN. 1.1990,  straaa  ); 
struct  tm  *new_tm.timadate  «  localtimaC  Anea.bni ld.datatima  ) ; 
strftime(  taxt.build.data,  10,  "XdXbXT",  naa.tn.tinadata  ); 

DEBUG. OUT (  sprintf (  BUG,  "adding  part  Xd  (Xs  X6d  X6d  %•)" . 

part. id,  naa.typa,  naa.x,  naa.y,  taxt.build.data  ),  2  ); 
raturn  (  naa(db)  part(  part. id,  naa.typa,  naa.x,  naa.y,  na* '.build.datetime  )  ); 

} 

////////////////////////////////////////////////////////////////////// 

void  ool: :craata_connactions(  part  vdb.part,  int  num. parts  )  //  privata 

< 

DEBUG_IHIT(  "001"  ,  "ool: :craata.connactions"  ); 

DEBUG. OUT (  "antaring",  1  ); 
int  cpart.id; 
part  adb.cpart; 
connection  *naa.connection; 
int  naa.langth; 
char  enaa.typa; 

//  craata  HUM.CONNECTIONS  from  tha  part  "db.part” 
for  C  int  c  »  1  ;  c  <»  NUN.CONHECTIONS  ;  C++  )  < 

if  (  roll(  1,  10,  straam  )  >  LOCAL ITT. OF.REFERENCE  )  { 

//  90X  of  tha  time  create  connection  to  the  closest  IX  of  parts 

//  (this  is  tr  e  when  "LOCALITT.OF.IIEFERENCE"  is  equal  to  1) 

cpart.id  *  db.part->id  +  (int)roll(  1,  (long)(  nua.parts  /  100  ),  stream  ) 

-  1  -  (int)(  num.parts  /  200  ); 

//  "double  up"  at  the  ends  (to  stay  in  the  part  id  range) 
if  (  cpart.id  <  (int)(  num.parts  /  200  )  ) 

cpart.id  «  cpart.id  *  (int)(  num.parts  /  200  ); 
if  (  cpart.id  >  (  num.parts  -  (int)(  num.parts  /  200  )  )  ) 
cpart.id  >  cpart.id  -  (int) (  num.parts  /  200  ) ; 

} 

else  { 

//  10X  of  the  time  create  connection  to  any  part  1. .num.parts 


66 


II  (this  is  true  vhen  "LOCALITY. OF.REFEREMCE"  is  equal  to  1) 
cpart.id  >  (int)roll(  1,  ( long )num. part s ,  stream  ); 

> 

//  craata  tha  connection  in  tha  database 

db. opart  »  (  apart :: extant  ) [X  id  »»  opart. id  X] ;  II  query  tha  part 
if  (  db_cpart->id  !»  opart. id  ) 

fprintf{  stderr,  "HARMING  [ooi :  :  create,  connect  ions]  invalid  query  resultin''  ); 
nan. type  ■  part .types [roll (  0,  9,  stream  )]; 
new. length  •  (int)roll(  0,  99999,  stream  ); 

DEBUG. OUT (  sprint f(  BUG,  "connecting  part  Xd  to  part  Xd  (Xs  X6d)", 
db.part->id,  db.cpart->id,  nee. type,  nee. length  ),  2  ); 
nee. connection  •  nee(db)  connection(  db.part,  db.cpart,  nee  type,  nee  length  ); 

> 

> 

iiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiin 

void  ooi : :foreard. traversal. measure(  ) 

DEBUG. IHIT(  "001"  ,  "ooi : : f orvard.traversal.measure"  ); 

DEBUG. OUT (  "entering",  1  ); 
part  adb.part; 
int  part. id; 

//  run  the  benchmark  iterations 

for  (  int  i  ■  1  ;  i  <a  NUM.BENCHMARK. ITERATIONS  ;  i++  )  { 

//  start  the  timer 
stopwatch  traversal. timer; 
traversal. timer . start (  ); 

do. transaction (  )  { 

for  (  int  j  »  1  ;  j  <«  NUM.FORWARD .TRAVERSAL  ;  j+e  )  { 

//  lookup  a  random  part 

part .id  •  (int)roll(  1,  (long)num.parts ,  stream  ); 

db.part  »  (  ‘part :: extent  ) [X  id  ■■  part. id  XJ ;  //  lookup  the  part 

//  find  all  the  parts  connected  to  this  part  (up  to  TRAVERSAL.DEPTH) 
results [i  -  1] .num.parts. connected  »  db_part->f orear d.t raver sal (  0  ); 

DEBUG. OUT (  sprintf(  BUG,  "found  Xd  parts  connected  to  part  Xd”, 
results [i  -  1] .num.parts .connected,  db_part->id  ),  2  ); 

> 

> 

//  stop  the  timer  and  save  the  elapsed  time 
results [i  -  1]  .elapsed. time  »  traversal. timer . stop(  ); 

> 

//  report  the  benchmark  results 
report .result s(  FORWARD. TRAVERSAL  ); 

> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  ooi: : insert .measure (  ) 

DEBUG_INIT(  "001"  ,  "ooi :: insert .measure"  ); 

DEBUG_0UT(  "entering",  1  ); 

//  run  the  benchmark  iterations 

for  (  int  i  »  1  ;  i  <»  NUM.BENCHMARK. ITERATIONS  ;  i++  )  i 

II  start  the  timer 
stopwatch  insert. timer ; 
insert. timer. start (  ); 
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do.transaction!  )  { 


//  insert  parts  into  tha  database  and  call  a  "null"  procedure 
//  to  get  the  x  and  y  position  for  each  insert 

//  (the  "null"  procedure  is  called  by  the  "create. a.part!  )"  function) 
for  (  int  p  •  num.parts  +1  ;  p  <»  num.parts  +  HUM. INSERT  ;  p++  ) 
create. connections (  create. a.part(  p  ),  p  ); 

> 

//  stop  tha  timer  and  save  the  elapsed  tine 
resulted  -  1]  .elapsed. time  *  insert. timer  ,stop(  ); 

//  remove  the  inserted  parts  and  connections 
do.transaction(  )  { 

int  largest.original_part.id  *  num.parts; 
os.Set<part*>  selected. parts  * 

(  epart :: extent  )[:  id  >  largest. original. part. id 
selected.parts . change. behavior (  os. collection : :maintain_cursors  ); 
foreach  (  part  *p,  selected.parts,  os.cursor : :safe  )  { 

DEBUG. OUT (  sprintf (  BUG,  "deleting  part  Xd",  p->id  ) .  2) ; 
delete  p; 

> 

> 

> 

II  report  the  benchmark  results 
report.ieaults!  INSERT  ) ; 

> 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiniiiiiiiiiiiii 

void  ool : : load(  ) 

i 

DEBUG_INIT(  "001"  ,  "ool:: load"  ); 

DEBUG. OUT (  "entering",  1  ); 

II  time  the  creation  of  the  001  database 
stopwatch  db.creation. timer ; 
db.creation.timer .start!  ); 

do. transaction!  )  { 

//  create  an  extent  for  the  part  class 
part::extent  «  tos_Sat<part»>: : create!  db,  0, 

(os.int32)num_parts  /*  tell  ObjectStore  the  expected  size  */  ) ; 

//  create  "num.part"  parts 
for  (  int  p  =  1  ;  p  <*  num.parts  ;  p++  ) 
create.a.part (  p  )  ; 

//  create  an  index  to  optimize  lookup  by  part  id 
os.index.path  tkey.spec  = 

os. index. path: : create!  "part*",  "id",  db  ); 
part: :extent->add_index(  key. spec  ); 

II  create  connections  for  each  part 
foreach  (  part  *db.part,  ‘part :: extent  ) 
create. connections  (  db.part,  num.parts  ); 

> 

//  report  the  time  it  took  to  load  the  database 
double  total.elapsed.time  *  db.creation.timer .stop!  ); 
printf!  "  X.3f  sec\n",  total.elapsed.time  ); 

> 

llllllllllllllllllllllllllllllllllllllllllllllllinillllllllllllllllll 

void  ool : : lookup.measure !  ) 
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DEBUG.INIT!  "001"  ,  "ool ::  lookup  jMtran"  ); 

DEBUG. OUT (  "entering",  1  ); 
part  sdb.part; 
int  part. id; 

//  run  tha  benchmark  iterations 

for  <  int  i  »  1  ;  i  <■  MUM. BENCHMARK .ITERATIONS  ;  i++  )  { 

//  start  tha  timar 
stopwatch  lookup. t imar ; 
lookup. timar. start (  ); 

do. transaction!  )  < 

//  lookup  parts  in  the  database  and  call  a  null  procedure  for  each  lookup 
for  (  int  j  ■  1  ;  j  <»  NUM.L00KUP  ;  j++  )  { 

//  lookup  a  random  part 

part. id  ■  (int)roll(  1,  (long)nua.parts ,  stream  >; 

db.part  a  (  apart :: extant  )  [X  id  «*  part.id  X];  //  lookup  tha  part 

DEBUG.OUTC  sprint! (  BUG,  "looked  up  part  Xd",  db.part -> id  ),  2  ); 

//  call  tha  required  null  procedure 

null .procedure (  db.  art->x,  db.part->y,  db_part->type  ); 

> 

} 

//  stop  the  timer  and  save  the  elapsed  time 
results [i  -  1] .alapsad.time  »  lookup. timer. stop!  ); 

> 

//  report  the  benchmark  results 
report.resultsC  LOOKUP  ) ; 

> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  ool :: report. results!  int  measurement  )  //  private 

{  //  two  debug  INITs  used  in  this  function  so  hide  this  one  from  the  other 
DEBUG.INIT!  "001"  ,  "ool :: report .results"  ); 

DEBUG.OUT!  "entering",  1  ); 

} 

double  cold.elapsed.time; 

double  total.after.first. iteration  =  0.0; 

double  warm.elapsed.time ; 

//  report  the  benchmark  results 

DEBUG.INIT!  "RESULTS"  ,  "ool :: report .results"  ); 

//  determine  the  cold  time 

if  (  measurement  “*  REVERSE. TRAVERSAL  ) 

//  the  reverse  traversal  times  are  normalized 
cold.elapsed.time  ■  results [0] .normalized. elapsed. time; 
else 

cold.elapsed.time  >  results [0] .elapsed. time; 

//  calculate  the  warm  time 

for  !  int  i  »  1  ;  i  <■  NUM.BENCHMARK. ITERATIONS  ;  i++  )  { 

//  output  detailed  results  if  the  "RESULTS”  environment  variable  is  set 
//  to  at  least  a  level  of  1  !i.e.  setenv  RESULTS  1) 

DEBUG.OUT!  sprintf!  BUG,  "iteration  X2d  elapsed  time  X.3f  sec",  i, 
results [i  -  1] .elapsed. time  ),  1  ); 
if  !  measurement  ««  FORWARD .TRAVERSAL  )  { 
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DEBUG, OUT (  sprint! (  BOG,  “(parts  found  Xd)“, 
resultsCi  -  1] .num.parts. connected  ),  1  ); 

> 

if  (  Muurusst  **  RE  VERSE  .TRAVERSAL  )  { 

DEBOG. 0UT(  sprintf (  BOG,  "(parts  found  Xd  normal izsd  time  X-3f  sac)", 
resultsCi  -  1] .num.parts. connected, 
rasults[i  -  1] . normalized. elapsed. time  ),  1  ); 

> 

//  add  up  the  alapsad  times  (for  all  iterations  after  the  first) 
if  (i  !-  1) 

if  (  measurement  ■■  REVERSE. TRAVERSAL  ) 

total.after. first. iteration  ♦»  results [i  -  1] .normalized. elapsed. time; 

else 

total.after.first.iteration  ♦»  results [i  -  1] . elapsed. time ; 

> 

Harm. elapsed. time  *  total.after.first.iteration  /  (  MOM. BENCHMARK. ITERATIONS  -  1  ) 

//  output  a  quick  summary  of  all  the  times 
for  (  i  •  1  ;  i  <»  NOM.BENCHMARK. ITERATIONS  ;  i*+  >  { 
printf(  "  X7.3f",  results [i  -  1] .elapsed. time  ); 

> 

//  output  the  cold  and  warm  results 
printf(  "  C  X7.3f",  cold.elapsod.time  ); 
print! (  "  W  X7.3f\n",  Harm.elapsed.time  ); 

> 

IIIIIUIIIIIIIIIIIIIIIUIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 

void  ool : :reverse_traversal_measure(  ) 

DEBOG_INIT(  "001"  ,  "ool :: reverse. traversal.measure"  ); 

DEBUG. OUT (  "entering",  1  ); 
part  edb.part; 
int  part. id; 

//  run  the  benchmark  iterations 

for  (  int  i  -  1  ;  i  <-  HUH.BENCHMARK. ITERATIONS  ;  i++  )  { 

//  start  the  timer 
stopwatch  traversal. timer; 
traversal.timer. start (  ); 

do. transaction (  )  { 

for  (  int  j  -  1  ;  j  <«  NUM. REVERSE .TRAVERSAL  ;  j++  )  { 

//  lookup  a  random  part 

part. id  »  (int)roll(  1,  (long)num.parts ,  stream  ); 

db.part  »  (  epart :: extent  ) [X  id  ■■  part. id  X] ;  //  lookup  the  part 

//  find  all  the  parts  which  connect  to  this  part  (up  to  TRAVERSAL.DEPTH) 
results [i  -  1] . num.parts. connected  »  db.part ->reverse_traversal(  0  ); 

DEBOG. OOT(  sprintf (  BOG,  "found  Xd  parts  which  connect  to  part  Xd", 
results[i  -  1]  .num.parts. connected,  db.partoid  ),  2  ); 

> 

> 

//  stop  the  timer  and  save  the  elapsed  time 
resultsCi  -  1] .elapsed. time  •  traversal.timer ,atop(  ); 

//  the  results  for  the  reverse  traversal  are  normalized  so  that  they 
//  may  be  compared  to  the  forward  traversal 

//  (multiply  the  time  by  num_nodes_visited.in.forward.traverssl/N, 

//  where  N  is  the  number  of  nodes  actually  visited  in  the  reverse 
//  traversal) 

results[i  -  1] .normalized. elapsed. time  =  resultsCi  -  1] .elapsed. time  • 

(  (double)num.nodes.visited.in.forvard.traversal  / 
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(double) results [i  -  1] .num.parts. connected  ); 

> 

//  report  the  benchmark  reaults 
report .results (  REVERSE. TRAVERSAL  ); 

> 

////////////////////////////////////////////////////////////////////// 

2.3.9  params.hh 

The  source  code  for  the  file  params.hh  is  listed  below.  This  file  defines  several  constant  parameters  which 
the  OOl  benchmark  implementation  requires. 

•ifndef  ..PARAMS.HH 
•define  ..PARAMS.HH 
/* 

••*••  •••••  • 

•  •  •  *  •• 

•  •  •  •  •  • 

•  •  •  •  •  OBJECTSTORE 

•  •  •  •  • 

•  •  •  •  • 

•••••  •••••  ••••• 

"Object  Operations  Benchmark"  R.G.G.  Cattell  and  J.  Skeen 

Sun  Microsystems 

ACM  Transactions  on  Database  Systems  Vol.  17,  No.  1,  March  1992,  Pages  1-31. 
params.hh 

Air  Force  Institute  of  Technology 
Timothy  J.  Bailor an 
01  Jul  1993 

Revisions : 

15  Jul  93  -TJH-  Added  ObjectStore  specific  parameters. 

*/ 

//  definition  of  the  number  of  connections  for  each  part  (3  for  001) 

•define  NUM.CONNECTIONS  3 

//  definition  of  the  depth  of  the  forward  and  reverse  traversals  (7  for  001) 

•define  TRAVERSAL. DEPTH  7 

//  definition  of  the  locality  of  reference  value  (1  for  001  which  means  that 
//  90X  of  the  connections  are  randomly  selected  among  the  IX  of  the  parts 

II  which  are  closest  (in  terms  of  part  id) ,  and  the  rest  of  the  connections 
//  are  made  to  any  randomly  selected  part . 

•define  LOCAL ITT. OF.REFERENCE  1 

//  definitions  to  create  a  10  year  range  of  dates 

•define  JAN.1.1980  316660800 

•define  JAN.1.1990  631170000 

II  001  benchmark  parameters 

•define  NUM.BEHCHMARK. ITERATIONS  10 

•define  NOM.LOOKUP  1000 

•define  NDM.FORUARD .TRAVERSAL  1 

•define  NUM.REVERSE.TRAVERSAL  1 

•define  NOM. INSERT  100 

//  ObjectStore  parameters 

•define  FETCH.SIZE.IN.BTTES  8192 

•endif  ..PARAMS.HH 

2.3.10  part.hh 

The  source  code  for  the  file  part.hh  is  listed  below.  This  file  defines  the  part  class. 
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•ifndef  _ PART.HH 

•dal in*  PART.HH 

/• 

•*•••  ••«••  • 

•  •  •  •  •• 

•  •  •  •  •  • 

•  •  •  •  •  OBJECTSTORE 

•  •  •  •  • 

•  •  •  •  • 

•••••  ••«••  •*••• 

"Object  Operations  Benchmark"  R.G.G.  Cattail  and  J.  Skaan 

Sun  Microsystems 

ACM  Transactions  on  Databasa  Systems  Vol.  17,  No.  1,  March  1992,  Pages  1-31. 
part.hh 

Air  Force  Institute  of  Technology 
Timothy  J.  Hal lor an 
18  Jun  1993 

Revisions : 

02  Jul  1993  -TJH-  Added  an  index  on  the  "id”  attribute . 

31  Jul  1993  -TJH-  Changed  the  type  of  "build"  to  long  (from  char)  to 
comply  uith  the  benchmark  specification. 

•/ 

extern  os .database*  db; 
class  connection; 

class  part  { 
public : 

persistent<db>  os.Set<part*>*  extent; 

int  id  indexable; 

char  type [11] ; 

int  x; 

int  y; 

long  build; 

os.Set<connection*>  connected. to  inverse.member  from; 
os_Set<connection*>  connected.! rom  inverse.member  to; 
part(  int  new. id,  char  *nev.type,  int  nev.x,  int  nev.y, 
long  new. build  ) ; 

*part(  ); 

int  f orvard. traversal (  int  current. level  ) ; 
int  reverse.traversal(  int  current. level  ); 

}; 

•endif  ..PART.HH 

2.3.11  part.cc 

The  source  code  for  the  file  part.cc  is  listed  below.  This  file  implements  the  methods  for  the  part  class. 

/• 

•••••  ••***  * 

•  *  •  •  »• 

•  •  i  •  *  • 

•  •  •  •  •  OBJECTSTORE 

•  •  •  •  • 

•  •  •  •  * 

*•••*  •••••  «<••* 

"Object  Operations  Benchmark"  R.G.G.  Cattail  and  J.  Skeen 

Sun  Microsystems 
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ACM  Transaction*  on  Database  Systems  Vol.  17,  Mo.  1,  March  1992,  Pages  1-31. 


part .cc 


Air  Fore*  Institut*  of  Technology 
Timothy  J.  Halloran 
18  Jun  1993 


Revisions: 


01  Jul  1993 

06  Jul  1993 
21  Jul  1993 

29  Jul  1993 

02  Aug  1993 


-TJH-  Th*  function  "null.procedure.lO"  was  changed  to 
"null.procedure" . 

-TJH-  Changed  all  tha  debug  output  to  use  the  "debug. hh"  macros. 

-TJH-  Changed  the  type  of  "build"  to  long  (from  char)  to 
comply  with  th*  benchmark  specification. 

-TJH-  Changed  the  constructor  to  that  th*  "connected. to”  and 
"connected.from”  attributes  included  th*  behavior 
"os. collection: : maintain. cur tors."  This  allows  th* 
connection  objects  to  delete  themselves. 

-TJH-  Moved  the  removal  of  connections  from  a  part  which  is  being 
deleted  from  the  ”ool: : insert  _m*asurs(  )"  function  to  the 
destructor  of  the  part  class.  Th*  destructor  function  nos 
deletes  all  the  connection  objects  which  involve  th* 
part  being  deleted.  This  sill  keep  th*  database 
consistent . 


•/ 


•includ«<ostore/ostore .hh> 

•includ*<os tore/coll .hh> 
tinclude<ostore/r*lat .hh> 

• inc lude  <debug . hh> 

<includ*”conn*ct . hh" 

•includ*"part .hh" 

•includ*"nullproc .hh" 
tincluda"params .hh" 

////////////////////////////////////////////////////////////////////// 
part:; part  (  int  nes.id,  char  *n*s.type,  int  new.x,  int  nes.y, 
long  nes.build  ) 

DEBUG. INIT(  "PART"  ,  "part:: part"  ); 

DEBOG. OUT (  "entering",  1  ); 


id  ■  nes.id; 

strcpyC  type,  new. type  ); 
z  ■  new.x; 
y  ■  new.y; 
build  *  nes.build; 

connected.to. change.behaviorC  os. collect ion: : maintain. cursors  ); 
connected.from. change.behaviorC  os. collection: :maintain. cursors  ); 
extent->insert(  this  ) ; 

} 

IllllllllllllllllllllllUllllllllllimillllllllllllllllllllllllllllll 

part: :'part(  ) 

i 

DEBUG.IHITC  "PART"  .  "part :: -part"  ); 

DEBUG. OUT (  "entering",  1  ); 

DEBUG. OUT (  sprintf(  BUG,  "deleting  part  Xd" ,  id  ) ,  2  ) ; 

DEBUG. OUT (  sprintf(  BUG,  "deleting  the  Xd  V'connected.toV  connections", 
connected.to. cardinality (  )  ),  2  ); 

//  delete  all  the  connections  from  this  part  to  other  parts 
foreach  (  connection  *c,  connected.to,  os. cursor :: sale  )  { 
delete  c; 

> 

DEBUG. OUT (  sprintf(  BUG,  "deleting  the  Xd  V'connected.fromV'  connections". 


73 


connactud.froa.  cardinality  (  )  ),  2  ); 

//  dalat*  all  tha  compact ions  to  this  part  froa  othar  parts 
foraaeli  (  c,  connactad.froa,  os  .cursor:  :aafa  )  { 
dalata  c; 

> 

oztant->raaoTs(  this  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

iat  part : :f oruurd. traversal (  int  currant. laval  ) 

{ 

DEBUG. INIT(  "PART"  ,  "part:  :fomard_travar»al"  ); 

DEBUG. OUT (  "antaring",  1  ); 

DEBUG. OUT (  sprintf (  BUG,  "part  id  X6d  (laval  Xd)",  this->id,  currant. laval  ),  2  ); 

//  call  tha  raquirad  null  procadura 

null.procadura(  this->x,  this->y,  this->typa  ); 

int  nua.parts.connactad  "  0; 

if  (  currant. laval  <  TRAVERSAL. DEPTH  )  < 

foraach  (  connaction  *c,  this->connactad.to  )  < 
nua.parts.connactad  c->to->f oruard.travarsal (  currant. laval  ♦  1  ) ; 

} 

> 

ratum  (  nua.parts.connactad  +  1  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

int  part : :ravarsa_travarsal(  int  currant.laval  ) 

■C 

DEBUG. IN IT (  "PART"  ,  "part: : ravarsa.travarsal"  ); 

DEBUG .OUT (  "antaring",  i  ); 

DEBUG. OUT (  sprintf (  BUG,  "part  id  X«d  (laval  Xd)",  this->id,  currant.laval  ).  2  ); 

//  call  tha  raquirad  null  procadura 

null.procadura(  this->x,  this->y,  this->typa  ); 

int  nua.parts.connactad  •  0; 

if  (  currant.laval  <  TRAVERSAL .DEPTH  )  { 

foraach  (  connaction  *c,  this->connactad_fron  )  { 

nua.parts.connactad  c->froa->ravarsa_travarsal(  currant.laval  ♦  1  ) ; 

} 

> 

ratum  (  nua.parts.connactad  +  1  ) ; 

} 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 


3  Simulation  Benchmark 

This  section  lists  the  source  code  for  our  implementation  of  the  simulation  benchmark.  An  implementation 
was  created  for  the  ObjectStore  object-oriented  DBMS,  and  a  non-persistent  version  was  created.  Only  the 
ObjectStore  implementation  is  listed  due  to  the  minor  changes  (removing  the  ObjectStore  specific  code) 
necessary  to  create  the  non-persistent  version  of  the  benchmark. 

3.1  ObjectStore  Implementation 

This  section  lists  the  source  code  for  the  ObjectStore  implementation  of  the  simulation  benchmark.  The 
implementation  was  created  on  version  2.0.1  of  ObjectStore  using  the  C++  DML  API.  The  executable 
simbench  is  the  benchmark  program,  and  the  executable  create  sets  up  a  database  for  use  with  the  benchmark 
program. 
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3.1.1  Makefile 

The  Makefile  for  the  ObjectStore  SimBench  source  code  is  listed  below. 

include  ((OS.ROOTDIR)/etc/ostore.nk 
OS.COMPILATIOR.SCBEKA.DB.PATB- 

prouler : /u*r3/databas*s/os tor* .data/ sin . coap. schana 
OS.APPLICtTIOR_SCBEIU_DB.PdTB* 

prouler : / aar3/databaaa*/os tora.dat a/aia . app. schana 

• 

•  If  debug  output  ia  desired  unconnent  tha  "CCFLAGS"  daf inition  with 

•  "-DDEBUG"  in  it.  Only  ona  definition  should  be  unconaented . 

• 

•CCFLAGS— I.  -DDEBUG  -DXTFUMCPROTO  -I/usr/quaatsin/ include 
-I/usr/quastuin/includa/Ill  -gx 

CCFLAGS— I.  -DXTFURCPROTO  -I/usr/quastuin/ include  -I/usr/questsin/include/Xll 

ilHHIliliHMitNHtMUUMMtinilHHUlHItKHIIKMUilllllitl 

LDFLAGS— L/usr/questuin/lib/Xll 
XLIBS— lXn  -lit  -1X11 
LDLIBS— In  -  loacol  -los 

SOURCES-aircraft.ee  create. cc  dice.cc  axpon.cc  hax.c  haxboazi.cc  haxplay. cc 
location. cc  nodal. cc  pamlcg.c  sinbanch.cc  ainulata.ee  atoputch.cc  truck.cc 
OBJECTS*aircraft.o  craata.o  dica.o  expon.o  hax.o  haxboard.o  haxplay .o 
location. o  nodal. o  pmnlcg.o  sinbanch.o  ainulata.o  stopetch.o  truck. o 
EIECUT ABLES • s inbench  create 

all:  ({EXECUTABLES} 

strange: 

OSCC  -c  pamlcg.c 

cc  -c  - I/uar/ quest win/ include  -I/usr/questuin/include/Xll  hax.c 

s inbench:  sinbanch.o  sinulate.o  hexplay.o  nodal. o  aircraft.o  truck. o 
haxboard.o  location. o  stoputch.o  dica.o  axpon.o  pmnlcg.o  hax.o 
({LIRK.cc}  -o  sinbanch  \ 

sinbanch.o  sinulate.o  haxplay. o  \ 

nodal . o  aircraft . o  truck . o  hexboard . o  \ 

location. o  stoputch.o  dica.o  axpon.o  pmnlcg.o  hax.o  \ 

({XLIBS}  ({LDLIBS} 

create:  craata.o 

({LIRK.cc}  -o  create  craata.o  ({LDLIBS} 

clean: 

rm  -f  ({EXECUTABLES}  *.o 

osrm  -f  /uar3/databases/ostore_data/sin.comp_scheaa 

depend: 

osmakadap  .depend  ((CCFLAGS)  ((CPPFLAGS)  -files  ((SOURCES) 
include  .depend 

3.1.2  air  c  raft,  hh 

The  source  code  for  the  file  aircraft.hh  is  listed  below. 

•ifndof  _ AIRCRAFT _BB 

•define  _ AIRCRAFT.HB 

/* 

«  *  •  •••*•  ••««  •<•••  ••  •••«*•  <••»» 
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• 

•  • 

•  • 

•  • 

•  • 
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••••• 

•••• 

Ml 

• 
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• 

• 

• 

•  • 

•  f 

•  • 

•  • 

• 

• 

• 

• 

•  • 

•••• 

•  t 

•  • 

• 

aircraft  .hh 

Air  Fore*  Institute  of  Technology 
Timothy  J.  Hal lores 
20  Aug  1993 
•/ 

9 includaHplayor . hh" 

cleat  aircraft  :  public  player  { 

char  name [10] ; 
char  home_base[ll] ; 
char  locationClO] ; 
char  ai*c_aim_data[6l] ; 

public : 

aircraft (  char  +na*e ,  char  *home_base,  char  ^location,  char  *nisc_sim_data  ); 
environment  *clone(  oa. database  *db,  oa_ configuration  *model_conf ig  ); 
void  execute (  char  •message,  nodal  *sim_ nodal  ); 
char  ‘query (  char  •data.item  ); 

}; 

tendif  _ AIRCRAFT.HH 

3.1.3  aircralt.ee 

The  source  code  for  the  file  aircraft.cc  is  listed  below. 

/* 

* 


»  • 

• 

••••• 

UK 

#*#»* 

•« 

•*«*««  ttt 

•  • 

• 

• 

* 

•  • 

•  • 

• 

• 

•  • 

•  * 

• 

t 

• 

* 

9  « 
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99999  9 

• 

99999 

« 

Mttil 

9  9 

•  • 

• 

* 

• 

<  • 

*  * 

* 

• 

9  9 

•  • 

< 

• 

• 

•»»# 

•  * 

• 

• 

9  9 

aircraft ■ cc 

Air  Force  Institute  of  Technology 
Timothy  J.  Hal lor an 
20  Aug  1993 

Revisions: 

30  Sep  1993  -TJH-  Removed  all  class  inline  functions  due  to  compiler 
limitations  (CC  compiler  is  not  a  "full"  C++) . 

•/ 

9 include<os tore/oat ore . hh> 

•indude<ostore/coll .  hh> 

•include<ostore/relat . hh> 

<indude<stdio .  h> 

•inelude<stdlib .h> 
finclude< string -h> 

• include<debug . hh> 

•include”modal . hh” 

•include" aircraft .hh" 

•include"dice . hh" 
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•  inc  lad*  "  upon .  hh" 

(include” location . hh" 

Matin*  STREAM  1 

////////////////////////////////////////////////////////////////////// 
aircraft: : aircraft (  char  ‘name,  char  ‘hoae.baa# ,  char  • location, 
char  emiac.aim.data  ) 

DEBUG.  Ill  IT  (  "AIRCRAFT"  .  "aircraft : :  aircraft"  ); 

DEBUG. OUT (  "entering",  1  ); 

atiaCpyC  aircraft :: nan#,  nan*,  9  ); 
aircraft : :nana [9]  ■  >\0’ ; 

•trncpy(  aircraft : :hoae_baae,  home. baa* ,  10  ); 
aircraft: :hona.ba*a [10]  ■  ’\0’; 

•trncpy(  aircraft : : location,  location,  9  ); 
aircraft :: location [91  «  *\0’; 

atrncpyC  aircraft:  :mi*c_aia.data,  niac.aia.data,  SO  ): 
aircraft : :miac_aim.dataCS0]  ■  *\0’; 

DEBUG. OUT (  aprintf(  BUG,  "Xa  Xa  Xa",  nan*,  hona.baaa,  location  ),  2  ); 

} 

////////////////////////////////////////////////////////////////////// 

environment  ‘aircraft :: cion# (  oa.databaaa  *db,  oa. configuration  •nodal.config  ) 

DEBUG.INITC  "AIRCRAFT"  ,  "aircraft: : clone"  ); 

DEBUG. OUT (  "entering” .  1  ); 

environment  *c  a  nau (db,  model. config) 

aircraft (  name,  homa.baae,  location,  miac.aim.data  ); 
return  c; 

> 

////////////////////////////////////////////////////////////////////// 

void  aircraft: : execute (  char  *m*aaage,  model  #aim_nod*l  ) 

DEBUG. IN IT (  "AIRCRAFT"  ,  "aircraft : :*x*cute"  ); 

DEBUG. OUT (  "entering",  1  ); 

DEBUG. 0UT(  nprintf (  BUG,  "neaaag*  ia  V'XaV"',  meaaage  ),  2  ); 
if  (  !atrcmp(  meaaage,  "MOVE"  )  )  { 

//  execute  the  "MOVE"  event 

int  hexboard. width ,  hexboard.height ; 

//  determine  the  aize  of  the  hexmap 

for  (  environment  *e  »  aim_model->firat_m*mb*r  ;  e  ;  a  •  e->next  )  < 
if  (  !atrcmp(  *->query(  "NAME"  ).  "HEXBOARD"  )  )  { 
hexboard.width  >  atoi(  *->query(  "WIDTH"  )  ); 
hexboard.height  »  atoi(  *->qu*ry(  "HEIGHT"  )  ); 

break: 

} 

> 

//  move  the  aircraft 

random.movoC  location,  hexboard.width,  hexboard.height  ); 

//  achedul*  thia  aircraft  to  aearch  the  hex  (exponential  with  mean  30.0) 
aim.mad*l->ach*dul*(  thia,  name, 

aim_nodel->ain_time  +  (int)expon(  30.0  ,  STREAM  ), 

"SEARCH"  ); 

> 

ala*  if  (  !atrcmp(  meaaage,  "SEARCH"  )  )  { 

//  execute  the  "SEARCH"  event 

for  (  environment  **  »  aim_mod*l->firat_m*mber  ;  a  ;  e  ■  #->next  )  { 
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if  (  !atrcap(  e- >query (  "LOCATION'1  ),  location  )  )  { 
il  (  !  strc»p(  e->query(  “CLASS"  >.  "TRUCX"  )  >  { 

1 1  located  a  truck  in  the  sane  hex 

sia_aodel->add.logitaa(  naae,  e->query(  “NAME"  ),  location, 
sia_aodel->sia.tiae  ) ; 

> 

> 

> 

//  schedule  the  next  nova  for  this  aircraft  (exponential  uith  naan  60.0) 
sim_aodal->achedule(  this,  name , 

sia.aodel->sia.tiae  ♦  (int)expon(  60.0  ,  STREAM  ), 

"MOVE"  ); 

> 

else  { 

fprintfC  stderr,  "WARMING [aircraft -Is]  unknown  nessageW,  naae  ); 

> 

> 

////////////////////////////////////////////////////////////////////// 

char  eaircraft: : query (  char  edata.itaa  ) 

DEBUG. INIT(  "AIRCRAFT”  ,  "aircraft : : query"  ); 

DEBUG. OUT (  "entering",  1  ); 

if  (  !strcap(  data. item,  "CLASS"  )  )  { 
return  "AIRCRAFT"; 

> 

else  if  (  !strcap(  data. item,  "MAKE"  )  )  { 
return  naae; 

> 

else  if  (  !strcmp(  data. item,  "HOME. BASE"  )  )  { 
return  home.base; 

> 

else  if  (  !strcmp(  data.item,  "LOCATION"  )  )  { 
return  location; 

> 

return  "ERROR"; 

iinmiiiiniiiiiiiiiiiimii  illinium  iiiimiiiiiiimimu  mu 

3.1.4  create.cc 

The  source  code  for  the  file  create.cc  is  listed  below. 

I* 


•  #»##* 

999999 

99 

99999 

999999 

•  • 

9 

9 

9 

9 

9 

#  * 

99999 

9 

9 

9 

99999 

Mitt 

9 

999999 

9 

9 

•  t  • 

9 

9 

9 

9 

9 

•*#»#  9  9 

999999 

9 

9 

9 

999999 

create . cc 

Air  Force  Institute  of  Technology 
Tiaothy  J.  Hal lor an 
17  Aug  1993 

•/ 

f include<ostore/ost ore . hh> 
tinclude<ostore/coll . hh> 
•include<ostore/relat .hh> 
•includetstdio . h> 
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tinclud*<stdlib.h> 
tinclude<debug . hh> 
tinclude "model .  hh" 

tdef in*  TRUE  1 
t da fin*  FALSE  0 

os .database  *db  ■  0;  //  raquirad  to  ba  hors  by  ObjaetStor* 

pars i stant <db>  os.Sat<aodal*>  aaodal: :axtant  *  0; 

parsistant<db>  os. workspace  *sim.ws  ■  0; 

///////////////////////////////✓✓///////////////////////////////////// 

main(  int  argc,  char  ssargv) 

DEBUG. INIT(  "MAIH"  .  "oain"  ); 

DEBUG. OUT (  "entering”,  1  >; 

//  chack  tha  command  lina  arguments 
if  (  argc  <  2)  { 

fprintfC  stdarr,  "create  [database] \n”  ); 
return  1 ;  //  exit  tha  program 

> 

char  adb.nama  *  argv[l] ; 

//  output  a  program  title 

printf(  "CREATE  [0BJECTST0RE]  Air  Force  Institute  of  T*chnology\n"  ); 
print! (  "  Creating  ObjectStore  database  \"%s\" . \n" ,  db.name  ); 

objectstore: :inltialize(  ); 
os_ collection: :initialize(  ); 

//  open  the  database 

db  *  os.database: : create (  db.name  ); 

do. transaction  ()  { 

sim.ws  *  os. workspace: : create. global (  db  ); 
os. workspace: : sat. current (  sim.ws  ); 

} 

do. transaction  ()  { 

//  create  an  extent  (with  an  index  on  "name”)  for  the  model  class 
model :: extent  a  tos.Set<model*>: : create (  db,  0,  (os_int32)100  ); 

} 

db->close(  ) ; 

> 

IlllllllllUllllllllllllllllllllllllllllllllllllllllllllllllimilllll 

3.1.5  environ.hh 

The  source  code  for  the  file  environ.hh  is  listed  below. 

•ifndef  ...EMVIRORMENT.HH 

(define _ ENVIRONMENT.!!!! 

/* 


t  (it*  t  Hill  tilt 

t  t((tt  ttitt 

HIM  till  (  t  •  ft  t 

*  f  •  t  #  *  •  (((*(  »  t 

t  ttttt  ftttf 

mini  t  t  tt  ttt  tttt 


t  t 
tt  t 
ttt 
ttt 
t  tt 
t  t 
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environ . hh 


Air  Fore*  Institute  of  Technology 
Timothy  J.  Hnllornn 
20  Aug  1903 
*/ 

•include<stdio . h> 
elms*  environment  { 
public : 

onvironmont  *nozt; 

virtual  'onvironmont (  ) 

{ 

//  empty 

> 

virtual  onvironmont  *clone(  os.database  *db,  os. configuration  ‘model  config  ) 

{ 

onvironmont  ‘c  ■  nos(db,  model. config)  onvironmont(  ); 

*c  ■  ‘this; 
return  c; 

} 

virtual  char  ‘query (  char  •data.itom  ) 

//  thia  coda  ahould  not  bo  called 

fprintfC  at dorr,  "WARDING [onvironmont :: query]  baso  class  function  called\n"  ); 
return  "ERROR"; 

> 

>; 

•ondif  ...ENVIRONMENT.®! 

3.1.6  event.hh 

The  source  code  for  the  file  event.hh  is  listed  below. 

•ifndof  ...EVENT.HH 
tdefine  ...EVENT.HH 

/* 


•  «  •  ••••••  *  •  «*«*• 

•  •  »  »  « 
**•••  •  •  mu  •  »  *  • 

>  t  #  #  •••  • 

•  «  *  *  •  • 
•••*•»«  *•  ••****  •  •  < 

event. hh 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
20  Aug  1993 
•/ 

•include<stdio . h> 
line lads "player . hh" 

class  event  { 

public: 
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char  message [80] ; 
event  *next; 
event  *prev ; 
int  time; 

playar  ato. player; 
char  to.playar .name [10] ; 


avant (  playar  ato.player,  char  ato.player. name,  int  time,  char  'message  ) 


avant : : to.playar  *  to.playar ; 

strncpy(  avant :: to.playar. name ,  to.playar.naaa,  9  ); 
avant : : to.playar. naaa [9]  *  ’\0’; 
event:: time  »  tiaa; 

atrncpy(  avant :: message ,  massage,  79  ); 
event: : message [79]  »  ’\0’; 
event:: next  ■  avant: :prav  »  NULL; 

> 

>; 

•endif  EVENT. HH 


3.1.7  hex.h 

The  source  code  for  the  file  hex.h  is  listed  below. 

•ifndef  .hex.h 
•define  .hex.h 
/* 


•  •  • 
*  •  • 
•  #  * 

*  t  < 

•  f  • 
t*  ## 


SSSSSS  I  • 

•  I  I 

•«•••  •* 

•  •* 

•  *  • 

••••••  •  • 


*  »«**»  ##•#  HUM 

*  •  •  <  t  • 

*  «  »  *  *•*(* 

•  «  •«•««* 

•  »  *  t  *  f 

*  •••••  ••••  ••*•«« 


II 


II 


hex.h  (hex  widget  public  header  file) 

Air  Force  Vargaming  Center 
Timothy  J.  Halloran 
September  1990 


*/ 

/« 

Resources : 

Name 

Class 

RepType 

Default  Value 

XtNbuttonCallback 

Callback 

Callback 

NULL 

XtNdiaplayHexLabala 

Boolean 

Boolean 

True 

XtNhexLabelFont 

Font 

XFontStruct* 

XtDef aultFont 

XtNhexOutline 

Color 

Pixel 

XtDefaultForeground 

XtNhexRadiua 

Width 

Dimension 

30 

XtNnnmberHexX 

Width 

Dimension 

10 

XtNnumberHexY 

Haight 

Dimension 

10 

81 


XtNstackingDot 


Color 


Pixel 


XtDwf aultForeground 


Child  Resources: 

Mama 

XtNhaxX 

XtNhexY 

•/ 


Class 


Position 

Position 


RepType 

int 

int 


Default  Value 

1 

1 


/•  special  resource  names  not 
•define  XtNbuttonCnllback 
•define  XtNdisplayHexLabels 
•define  XtNhexLabelF~~t 
•define  XtNhexOutline 
•define  XtNhexRadius 
•define  XtNnumberHexI 
•define  XtMnumbarHexT 
•define  XtNstackingDot 

/•  for  children  •/ 

•define  XtNhexX 
•define  XtNhexY 


in  <Xll/StringDafs.h>  */ 

"buttonCallback" 

"displayHexLabels" 

"hexLabelFont" 

"hexOutline" 

"hexRadius” 

"numberHexX” 

"numberHexY" 

"stackingDot" 


"hexX" 

"hexY" 


/*  method  declarations  for  the  hex  widget  •/ 

Widget  HX.CreateHexWidgetO ; 
void  HX.WhichHexO ; 

/*  declare  the  class  name  */ 

•define  hexClassName  "hex" 

/*  declare  specific  hex  widget  class  and  instance  datatypes  */ 
typedef  struct  .HexClassRac*  HexWidgetClass ; 
typedef  struct  .HexRec*  HexWidget; 

/*  declare  specific  hex  widget  public  structures  */ 

•define  HAXX  200  /*  Maximum  width  of  the  hex  board  •/ 

•define  MAXY  200  /•  Maximum  height  of  the  hex  board  •/ 

typedef  struct  { 

int  hexX;  /*  X  hex  coordinate  */ 

int  hexY ;  /*  Y  hex  coordinate  */ 

}  HXcoordinate; 

/*  declare  the  hex  widget  class  constant  */ 

extern  WidgetClass  hexWidgetClass ; 

•endif  _hex_h 


3.1.8  hexP.h 

The  source  code  for  the  file  hexP.h  is  listed  below. 

•ifndef  _hexP_h 
•define  .hexP.h 

/* 

•  • 

*  •  «*••••  •  • 

*  *  <  *  * 

••*••••  <•«•<  >• 

•  •  *  •• 

*  •  »  •  • 
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•  IMHI  ( 


< 


»  * 

(  (  (  *  (((((  **•*  **««**  Hill 

(  (  (  «#*###  ( 

(  (  (  <  •  (  (  (((((  • 

((((((((  • 

(  (  (  I  I  It  II  • 

((  ••  •  (((((  ((((  ((((((  • 

hexP.h  (hex  widget  private  header  file) 

Air  Force  Vargaming  Center 
Timothy  J.  Halloran 
September  1990 
«/ 

f include  "her.h" 


/«  include  superclase  private  header  file  */ 

(include  <Xll/CoreP.h> 

(include  <Xll/CompositeP.h> 

(include  <Xll/ConatrainP.h> 

(define  MARGIN  3  /•  margin  around  hex  board  (in  pixels)  */ 

/*  functions  in  hex.c  •/ 

void  HI.ButtonHandlerO ; 

void  HX.CalculateHexLayoutO ; 

void  HX.ChangeManagedO ; 

void  HX.CheckStackedO ; 

void  HX.ConstraintlnitializeO ; 

Boolean  Hl.ConstraintSetValuesO ; 

void  HX.DestroyO ; 

void  HX.DraiiSingleHex  (  )  ; 

void  HX.ExposeO; 

Xt geometry Result  HX. Geometry Manager () ; 
void  HX.InitializeO ; 

void  HX.ResizeO; 

typedef  struct  { 

XPoint  layout[8];  /*  0  is  center;  1-7  is  hax  outline  */ 

int  stacked;  /*  Stackin  flag.  True  if  more  than  */ 

/*  one  child.  False  if  one  or  zero.*/ 

>  HXhex; 

typedef  struct  { 

int  make. compiler. happy ; 

>  HexClassPart ; 

typedef  struct  .HexClassRec  { 

CoreClassPart  core.class ; 

CompositeClassPart  composite. class ; 

ConstraintClassPart  constraint. class ; 

HexClassPart  hex. class; 

>  HexClassRec; 


extern  HexClassRec  hexClassRec; 
typedef  struct  { 

/*  resources  */ 

XtCallbackList  button. callback;  /*  The  button  callback  list  */ 

Boolean  display . her. labels ;  /*  Are  labels  dram  on  each  hex?  •/ 
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/* 

(True  or  Falsa) 

•/ 

XFontStruct 

ehex.label.f ont ; 

/* 

The  font  usad  for  hex  labels 

•/ 

Pixel 

hax.outline; 

/* 

Color  for  drawing  hex  outlines 

*/ 

Dimension 

hex. radius; 

/* 

Hex  radius  in  pixels 

*/ 

Dimension 

number. hax.x; 

/* 

Width  of  the  hex  board  in  hexes 

*/ 

Dimension 

number . hex. y; 

/• 

Height  of  the  hex  board  in  hexes 

•/ 

Pixel 

stacking.dot ; 

/• 

Color  for  the  stacking  dot 

•/ 

/*  private 

state  */ 

GC 

gc .hax.outline; 

/* 

Graphics  context  for  drawing  the 

•/ 

/• 

hex  outlines  and  labels. 

*/ 

GC 

gc. stacking.dot ; 

/• 

Graphics  context  for  drawing  the  •/ 

/• 

stacking  dot 

•/ 

HXhex 

hex .boar d [RAXX+ 1] [MAXT+1] ;  /*  The  hex  board 

•/ 

>  HexPart; 

typedef  struct 

.HexRec  { 

CorePart  core ; 

CompositePart  composite; 
ConstraintPart  constraint ; 


HazPart  bax ; 

>  HaxRac; 

typedof  struct  .HexConstraintsRec  { 

HXcoordinate  position; 

>  HexConstraintsRec,  *HexConstraints ; 

*endif  .hexP.h 

3.1.9  hex.c 

The  source  code  for  the  file  hex.c  is  listed  below. 

/* 


«in*i 


unit  *  * 
t  *  • 

*****  *• 

*  tt 

•  *  * 

******  *  * 


•*  •* 


*  •••**  •*•*  ******  ***** 

******  • 

*  *  *  *  *****  • 
*«**••**  * 

•  •**•*  • 

•  ••*••  *•**  **<••*  * 


hex.c 


Air  Force  Wargaming  Center 
Timothy  J.  Halloran 
September  1990 


Revisions: 

02  Oct  1993  -TJH-  Modified  to  minimize  the  huge  amount  of  memory 

used  by  the  AFWC  implementation.  This  was  done 
to  allow  very  large  hex  boards  to  be  created. 

(Air  Force  Institute  of  Technology) 

02  Oct  1993  -TJH-  Created  the  "HX.Destroy"  function  to  make  sure  that 
memory  is  returned  to  the  system  when  a  hex  is 
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02  Oct 


*/ 

•include 

•include 

•include 

•include 

•include 


destroyed  (this  was  not  being  done,  this  widget 
had  LARGE  memory  leaks) . 

1993  -TJH-  The  hex  widget  presently  has  a  static  maximum  size. 

It  is  defined  by  MAXX  and  MAXY  in  the  "hex.h"  file. 

I  added  code  to  ensure  the  defined  maximums  are  not 
violated,  but  a  dynamic  solution  would  be  MUCH  better. 

<stdio.h> 

< string. h> 

<math . h> 

<Xll/IntrinsicP.h> 

<Xll/StringDef s .h> 


•include  "hexP.h" 


static  XtResource  resources Q  ■  { 

•define  offset (field)  XtOffset(HexHidget ,  hex. field) 

/*  {name,  class,  type,  size,  offset,  default. type,  default.addr},  */ 

{  XtNbuttonCallback,  XtCCallback,  XtRCallback,  sizeof (XtCallbackList) , 
off set (button. callback) ,  XtRCallback,  NULL), 

{  XtNdisplayHexhabels ,  XtCBoolean,  XtRBoolean,  sizeof (Boolean) , 
offset(displ«.y.hex.labels) ,  XtRString,  (caddr.t)"True">, 

{  XtNhexLabelFont ,  XtCFont,  XtRFontStruct ,  sizeof (XFontStruct  •), 
offset (hex.label.font) ,  XtRString,  "XtOef aultFont"} , 

{  XtNhexOutline,  XtCColor,  XtRPixel,  sizeof (Pixel) , 

offset (hex.outline)  ,  XtRString,  XtOef aultForeground> , 

{  XtNhexRadiua ,  XtCUidth,  XtROimension,  sizeof (Dimension) , 

offset (hex.radius) ,  XtRString,  (caddr.t)"30">, 

{  XtNnumberHexX ,  XtCWidth,  XtROimension,  sizeof (Dimension) , 

offset (number .hex.x) ,  XtRString,  (csddr_t)"10”>, 

{  XtNnumberHexY ,  XtCHeight,  XtROimension,  sizeof (Dimension) , 

offset (number.hex.y) ,  XtRString,  (caddr.t)"10">, 

{  ItMstackingDot,  XtCColor,  XtRPixel,  sizeof (Pixel) , 

offset (stacking.dot) ,  XtRString,  XtOef aultForeground} , 

•undef  offset 

>; 


static  XtResource  hexConstraintResources  □  •  { 

/*  {name,  class,  type,  size,  offset,  def ault.type ,  default.addr},  •/ 

{  XtNhexX,  XtCPosition,  XtRInt,  sizeof (int), 

XtOffset(HexConstraints,  position. hexX) ,  XtRString,  (caddr_t)"l”}, 
{  XtNhexY,  XtCPosition,  XtRInt,  sizeof (int), 

XtOffset(HexConstraints,  position.hexY) ,  XtRString,  (caddr.t)"!"}, 


static  XtActionsRec  actions □  * 

{ 

/•{name ,  procedure} ,  •/ 

{"handle.button” ,  HX.Butt onHandler} , 

}; 


static  char  translations □  • 

"  <BtnDown>:  handle. buttonO  \n\ 

»l  . 


HexClassRec  hexClassRec  >  { 

{  /*  core  fields  •/ 

/•  superclass  •/ 

/•  class.name  */ 

/•  widget. size  •/ 

/•  class. initialize  •/ 

/•  class. part. initialize  •/ 
/•  class. inited  */ 

/•  initialize  •/ 


(HidgetClass)  AconstraintClassRec, 

hexClassName, 

sizeof (HexRec) , 

NULL, 

NULL, 

FALSE , 

HX.Initialize , 


85 


/• 

initialize.hook 

*/ 

/• 

realize 

•/ 

/* 

actions 

*/ 

/• 

num. actions 

*/ 

/• 

resources 

•/ 

/* 

num.resources 

•/ 

/• 

xrm. class 

*/ 

/• 

compress. mot ion 

•/ 

/• 

compress. exposure 

•/ 

/* 

compress.enter leave 

*/ 

/• 

visible. interest 

•/ 

/• 

destroy 

*/ 

/* 

resize 

*/ 

/* 

expose 

*/ 

/* 

set. values 

•/ 

/* 

set. values .hook 

•/ 

/* 

set .values .almost 

*/ 

/• 

get. values .hook 

*/ 

/• 

accept.focus 

•/ 

/* 

version 

•/ 

/• 

callback.private 

*/ 

/* 

tm.table 

•/ 

/• 

query .geometry 

•/ 

/* 

display. accelerator 

•/ 

/• 

extension 

•/ 

>, 

■c 

/* 

composite  fields  •/ 

/* 

geometry .manager 

•/ 

/* 

change. managed 

*/ 

/* 

insert. chi Id 

«/ 

/• 

delete.child 

•/ 

/* 

extension 

•/ 

}. 

{ /• 

constraint  fields  */ 

/* 

subresources 

«/ 

/* 

subresources.count 

•/ 

/* 

constraint .size 

*/ 

/* 

initialize 

•/ 

/• 

destroy 

•/ 

/• 

set.values 

•/ 

/• 

extension 

*/ 

>. 

{ /* 

hex  fields  */ 

/• 

make.compiler.happy 

•/ 

} 

>; 


MOLL, 

It Inherit Realize , 

actions , 

Xt Number (actions) , 
raaourcas , 

ItNumber (resources) , 
NULLQUARX , 

TRUE, 

TRUE, 

TRUE, 

FALSE, 

BI.Destroy , 

HI. Resize, 

BX. Expose, 

MULL, 

MULL, 

Xt labor itSetValuesllaost , 
NULL, 

MULL, 

XtVersion, 

MULL, 

translations, 

Xt Inherit UueryG some try , 

Xt InheritDisplayiccelerator , 
MULL, 


HI. Geometry Manager , 

MULL / »  HI _  ChangeKanaged* / , 
Xt Inherit Insert Child , 

It Inher itOeloteChild , 
NULL, 


hexConstraintResonrces , 
XtNumber(hexConstraintResources) , 
sizeof (HexConstraintsRec) , 

HI. Constraint Initialize, 

MULL, 

BX.ConstraintSetValnes , 

MULL, 


0, 


WidgetClass  hexUidgetClass  •  (WidgetClass)thexClassRec; 

void  HX.ButtonHandler (hv ,  event,  params,  num. params) 

Her Widget  ha; 

XEvent  ‘event; 

String  eparaos;  /*  unused  */ 

Cardinal  •num.params ;  /*  unused  •/ 


/*  Call  the  XtMbuttonCallback  callback  list  «/ 
XtCallCallbacks (ho ,  XtMbuttonCallback,  (caddr.t)event) ; 


void  HX.CalculateHexLayout (layout,  quarter.hex.width,  half .hex. height) 

XPoint  layout  □ ; 

int  quarter. hex. width; 
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int  half .hax.haight ; 

i 

/•  Calculate  hex  aide  points  •/ 
layout [l].x  *  (layout [0] x-quarter .hex .width) ; 
layout [l].y  •  (layout [0] .y-half. hax.haight) ; 
layout [2]x  ■  (layout (0] .x+quarter.hex.aidth) ; 
layout [2] -y  ■  layout [1]  .  y; 

layout [3]  x  *  ( layout (0]  . x+2«quart er.hex. width) ; 

layout [3] . y  ■  layout [0] . y ; 

lay out [4]. x  •  lay out [2]. x; 

layout C4] .y  “  (layout [0] .y+half. hax.haight) ; 

layout [6] .x  ■  layout [1] . x; 

layout [6] . y  »  layout [4]. y; 

layout [6]. x  »  ( layout [0] .  x-2equarter_hex_width) ; 
lay  out  [6].  y  ■  layout[0].y; 
layout [7]  «  layout Cl]; 

> 


void  HX.ChangeManaged(hs) 
BexWidget  ho; 

{ 

/•Do  nothing  •/ 

> 


void  HX.CheckStacked(hw,  haxl,  haxT,  Ialnit) 

BexWidget  hw; 
int  haxX,  haxT; 
int  Ialnit; 

( 

HexConstrainta  child. const ; 
int  i,  nun. children; 

/•  Determine  how  many  children  are  in  this  hex  •/ 

if  (Ialnit)  /•  If  child  is  being  initialized  it  does  not  shov  in  list  •  / 
num.children  ■  1; 

else 

num.children  ■  0; 

for  (i»0;  i<hw->composite. num.children;  i++)  { 
if  (hw->composite . children [i] - >core . managed) { 

child. const  ■  (HexConstraints)hw->composite.children[i]->core. constraints 
if  ((child.const->position.hexX  »•  hexX)tft 
(child. const->position.hexY  ■■  hexY))  { 
num.children++ ; 

> 

> 

> 

if  (num.children>l)  < 

/*  drav  stacking  dot  •/ 

hu->hex.hex_boardChexX] ChaxY] .stacked  =  True; 

> 

else  { 

/*  erase  stacking  dot  •/ 

hw->hex. hex. board [hexl] [hexY] .stacked  »  False; 

> 

/*  Redraw  the  hex  •/ 

HX.DrawSingleHex (hw ,  hexX,  hexY); 

> 

/••eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee/ 
void  HX_ConstraintInitialize(request ,  new) 

Widget  request,  new; 

{ 

HexConstrainta  hex.const  «  (HexConstraints)  new->core . constraints ; 
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HexWidget  hw  ■  (HexWidget)  nea->core .parent ; 

/*  Check  that  the  haxl  and  hexT  are  in  rang*  */ 
if  ((hex.const-iposition.bexX  <1)11 

(hex.const-iposition .hexl  >  hw->hox . nunber.hex.x) )  { 
hex.const-iposition.hexl  »  1; 

> 

if  ((hax„conat->poaition.h«xT  <1)11 

(hex.const-iposition.hexT  >  hw->hex  . nunber.hex.y))  { 
hex. const->position. hexT  *  1; 

> 

/•  Sat  tha  widget  in  the  correct  position  */ 

new->core.x  •  (Position)hv->hex.hex.board[hex.const->position.hexl] 

[hex_const->position .hexTl . layout [0] .x-(new->core. width/2) ; 
naw->cora.y  «  (Posit ion)hw->hex . hex. board[hex_const->position . haxl] 

Chex.const-iposition.hexT] . layout [0] . y- ( new- > core . haight/2) ; 

/•  Check  hex  for  stacked  children  •/ 

HX.CheckStacked(ha,  hex_const->position.hexX,  hex.const-iposition.hexT,  True); 

> 

/.eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeseeeeeeeeeeeeeeeeeeeeee/ 
Boolean  HX.ConstraintSetValues (current ,  request,  new) 

Widget  current,  request,  new; 

{ 

HexConstrainta  new. const  •  (HexConstrainta)  new- > core. constraints; 
HexConstraints  current .const  »  (HexConstrainta)  current -> core . constraints; 
HexConstraints  child.const ; 

HexWidget  ha  *  (HexWidget)  naw->core. parent; 

Position  x,  y; 
int  i,  nun. children; 

/•  Check  that  the  latitude  and  longitude  are  in  range  •/ 
if  ((new.const-iposition.hexl  <  1) 1 1 

(new.const->position.hexI  >  hw- >hex. number. hex.x))  { 
nea.const->position.hexX  *  current .const - >pos i t ion • haxl ; 

} 

if  ((nea.const->position.hexT  <1)11 

(new. const->position. hexT  >  hw->hex. nunber.hex.y))  { 
nea_const->position.haxT  *  current. const->position. hex! ; 

> 

/*  Set  the  aidget  in  the  correct  position  */ 
x  •  (Position) (hw->hex .hex .board [now. const ->pos it ion. hex!] 

[new. const- >position . hexT] . layout [0] . x-(naw->core . width/2) ) ; 
y  *  (Position) (hw->hex .hex.board[new.const->position.hexX] 

[new. const- >posi tion. hex T] . layout [0] ,y-(new->core .height/2) ) ; 

XtMoveWidget (current ,  x,  y); 

/•  Check  nea  and  old  hex  for  stacked  children  */ 

HI. Checks tacked (ha , 

nea. const- >pos it ion . hex! , 
new. const- >pos i t ion . hexT , 

False) ; 

Hl.CheckStacked (ha , 

current. const->position . hexX , 
curr ent.const->posit ion. hexT , 

False) ; 

return (False) ;  /e  redraw  e/ 

> 

/e.eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee/ 
Widget  HX.CreateHexWidget (parent ,  naae,  arglist,  argeount) 

Widget  parent; 
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String  nan*; 

ArgLiat  argliat; 

Cardinal  argcount; 

{ 

raturs(ZtCraataUidgat(na>a,  haxWidgatClaaa ,  parant,  argliat,  argcount)); 

> 


void  HI.Daatroy(hii) 

HaxUidgat  ha; 

/•  ralaaaa  tha  GCa  baing  uaad  by  tha  hax  vidgat  •/ 
XtRalaaaaGC (h« ,  hvohax . gc.hax.outlina) ; 
XtRalaaaaGC (ha ,  hw->hax .gc. at aching. dot) ; 

> 


void  HX.DraaSingloHaxCha,  hexl,  haxT) 

HaxUidgat  ha; 
int  haxI.haxT; 

{ 

int  hax.labal.lan,  hax.labal.sidth; 
char  hax. labal [20] ; 

/•  Only  draw  hax  if  aidgat  ia  raalizad  •/ 
it  (XtlaRaalizad(hu) )  { 

/•  Draa  tha  hax  •/ 

/*  1.  draa  tha  atacking  dot  */ 
if  (hv->hax.hax.board[hexX] [haxT] .stacked)  { 

XFillRactanglo (XtDiaplay (ha) , 

XtUindoa(ha) , 

ha->hax . gc.atacking.dot , 

(hn->hax.hax.board[haxX] [haxT] . layout [1] .x  +  3), 
(ha->hox .hax.boardthaxX] [haxT] .layout[l] .y  ♦  A), 
4, 

4); 

> 

/*  2.  draa  tha  hax  outline  •/ 

XDrawLinaa (XtDiaplay (ha) , 

XtUindoa(ha) , 

ha~>hax . gc.hax.outlina , 

thv->hex.hex_board[haxX] [haxT] . layout [1] , 

7 ,  CoordModeOrigin) ; 

/•  3  draa  tha  hax  labal  •/ 
if  (ha->hax.diaplay.hax.labala)  { 

aprintf (hax. labal , "Xd-Xd" ,haxX .haxT) ; 
hax.labal.lan  *  atrlan(hax.labal) ; 

hax.labal.aidth  *  XTaxtUidth(ha->hax.hex_labal.font,  hax.labal, 

hax.labal.lan) ; 

XDraaString (XtDiaplay (ha) , 

XtUindoa(ha) , 
hv->hax .gc.hax.outlina , 

(ha->hax.hax_boardChaxX] ChaxT] .layout[0] .x- 
(int) (hax.label.vidtb/2)) , 

(ha- >hax. hax. board  [hnxX] [haxT] . layout [4] .y-2) , 
hax.labal , 
hax.labal.lan) ; 

> 

> 

> 


voi -  BX.Exposa(ha ,  avant) 
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Hex Widget  hw ; 

XEvent  ‘event; 

{ 

iat  loop. height ,  loop. width; 

/•  Redraw  the  iru  •/ 

for  (loop.width‘1 ; loop.width<ahw->hex .number .hex. x; loop.width**)  < 

for  (loop_height«l ; loop.hoight <«hw->hex .number .hex. y ; loop.hoight +♦)  { 
if  ((hw->hex.hex_board [loop. width]  [loop.hoight]  layout  [3]  x>* 

• vent - > xaxpo* • . x ) kk 

(hw->hex  .hex. board [loop.width] [loop.hoight] . layout [6] . x<* 

(avast ->xaxpo«a . x+avant ->xaxpooa . width) ) kk 
(hw->hax .hax.board [loop. width] [loop.hoight] . layout [4] . y>* 
event ->xexpose . y) U 

(hw->hax . hax. board [loop. width] [loop.hoight] .loyoat[l]  .  y<" 

(ovont ->xoxposo . y *event -ixexpose . hoight ) ) ) 

HI.DrewSingleHexOiw,  loop.width,  loop.hoight) ; 

> 

> 

> 

/•*•*•**•**••**•••*********•**•***•*•*****•**••••••*•*****•*•*•**•***•••***•*/ 

ItGoomotryRosult  HI. Geometry Manager (w ,  request ,  roply) 

Uidgot  w; 

XtWidgetGeometry  aroquoat ; 

XtWidgetGeometry  aroply; 

< 

/a  No  position  changes  allowed!  •/ 

if  ((request->request_mode  t  CVX  U  request->x  'a  w->coro.x)l| 
(request->request_mode  t  CWT  kk  raquaat ->y  !•  w->coro.y))  { 
return (ItGeometryNo) ; 

> 

return (XtGeaaiotry Tea) ; 

} 

. . a.*......*............,.............,.....,,...*.,,..*...../ 

void  HX.Initialize(request ,  now) 

HexUidget  request,  now; 

int  half .hex .height ,  quarter. hax. width; 
int  loop.width,  loop.hoight,  i; 

XGCValuos  values ; 

/•  Chock  width  and  hoight  of  the  hex  board  •/ 
if  ((naw->hex. number .hox.x<«0) 1 1 (now->hox. number .hox.y<*0)) 

ItErrorC'Bex  board  can’t  have  zero  height  or  width"); 
if  ((new->hex. number .hex.x>HAXX)  1 1  (new->hex  number. hax. y>KAXT)) 

XtErrorO'Hex  board  to  large”); 

/•  Create  outline  GC  a/ 

values . foreground  *  request->hax . hex. out line; 
values. font  •  request->hex. hex. label. font->fid; 
nes->hax.gc.hex. outline  »  XtGetGC(new, 

(GCForeground I GCFont) , 
k values) ; 

/•  Create  stacking  dot  GC  */ 

values. foreground  *  request->hex. stacking.dot ; 

nav->hax.gc. stacking.dot  *  XtGetGC(new, 

(GCForeground) , 

» values) ; 


/•  Set  hex  widget  size  */ 

quarter .hex.width  *  (int) ((sin((H.PI/180.0)*30.0)a 

(double)new->hex . hex. radius) +0 . 5) ; 

half.hex.height  *  (int) (cos((H_PI/180.0)s30.0)*(double)nee->hex.hex.radius) ; 
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new->core. width  *  ((int) (new->hex . nunbar.hex_x/2)» 

(2*new->hex .hax_redius+2*quarter.bex_width))t 
quarter  .hex _w idth+ 

(  (new->hex .  number . hax.xX2) *3»quarter. hex. width) ♦ (2*MARGIN) ; 
new- >core. height*  ( (naw->hex . number .hex. y»2*half .hex. height) 

♦half .hex .height )+(2»MlRGIM) ; 

/•  Create  layout  data  for  each  hex  •/ 

for  (loop_width*l ; loop_width<*new->hex .number .hex. x ; loop_width++)  { 

for  ( loop.height* 1 ; loop.height <*new->hex  number .hex. y ;  loop.height ♦♦)  { 

/*  Calculate  hex  center  point  */ 

new- >hex. hex. board [loop. width] [loop.height] . layout [0]  . x  • 

( (loop. vidth*nev~>hax.hex_ radius)* ( loop. width- l)*quar ter. hex. width) 
♦HARGIS ; 

new -> hex  hex.board [loop. width] Lioop.height] . layout [0] . y  > 

(new- >  core . height- ( ( loop. height *2*half .hex. height ) - 
(loop.widthX2)»half. hex. height)) -HARGIS ; 

HX.CalculateHexLayout (new->hex .hex. board[loop_ width] [loop.height] . layout , 
quarter .hex. width , 
half .hex. height) ; 

/*  Set  stacking  to  false  */ 

new- >hex. hex. board [loop. width] [loop.height] .stacked  ■  Falsa; 

> 

> 

> 

. . . . . . . 

void  HX.Resize(hw) 

HexWidget  hw; 

{ 

/*  Resize  not  supported  •/ 

) 

. . . . . 

void  HX.UhichHax(hw,  x,  y,  haxX,  haxT) 

HexWidget  hw; 

int  x,  y,  *hexX,  *hexT; 

{ 

int  loop.width,  loop.height,  cur.min.distance ,  distance; 
int  deltaX,  deltaY; 

cur.min.distance  ■  32767 ;  /*  a  very  large  number  ♦/ 

for  ( loop_width»l ; loop.width<»hw->hex . number. hsx.x ; loop.width++)  { 
for  (loop_height»l ;  loop.height <*hw->hex .  number. hex.y ;  loop.height +♦)  { 
deltaX  >  (hw->hex .hex. board [loop.width] [loop.height] . layout [0] .x  -  x) ; 
deltaY  »  (hw->hex. hex. board  [loop. width] [loop.height] .layout[0] .y  -  y)  ; 
distance  >  (int)  sqrt ( (double) (deltaXedeltaX*deltaY*deltaY) ) ; 
if  (distance  <  cur.min.distance)  { 

ahexX  «  loop.width;  ehexY  «  loop.height; 
cur.min.distance  ■  distance; 

> 

> 

> 

> 

. . * . . 


3.1.10  hexboard.hh 

The  source  code  for  the  file  hexboard.hh  is  listed  below. 

tifndef  ...HEXBOARD.HH 
•define  ...HEXBOARD.HH 
/* 

«  •  •••••• 
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«<•••; 


••••••  •  •  •  •  (III  •«  *****  >•««* 

•  •••  *•  III*  *•  • 

IMM  M  MM**  *  ••  *  •  ••  • 

•  ••  *  •  •  •  •••••<  ••••*  •  • 

•  *••  ••  •*  *•**  * 

******  •  •  ••*•*•  ••••  •  •  •  •  MM* 

hexboard  .  hh 

Air  Fore*  Institute  of  Technology 
Timothy  J.  Balloran 
20  Ang  1993 

•I 

•include" environ . hh" 

clean  hexboard  :  public  environment  { 

chex  name  [10] ; 

int  width; 

char  uidth.str [10] ; 

int  height; 

char  height_str[10] ; 

public ; 

hexboard (  char  ename,  int  vidth,  int  height  ); 

environment  *elone(  oa. database  *db,  os.conf iguration  emodel.config  ); 
char  equery (  char  *data_item  ); 

>; 

•endif  _ HEIBOARD.HH 

3.1.11  hexboard.ee 

The  source  code  for  the  file  hexboard.ee  is  listed  below. 

/* 

•  »  «••*** 

•  *  •(**••  •  •  •  •  ••••  ••  *****  MM* 

•  ••  •••  •*•*•••*• 

*******  •••<•  ••  •••*•*  •  **  ••  ••  * 

•  ••  ••*  •••  ••*•**  *****  *  * 

•  •*  *••  ••***•••* 

•  •  ••••••  •  •  ••••••  •***  (  *  •  •  MM* 

hexboard  cc 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
20  Aug  1993 

Revisions: 

30  Sep  1993  -TJH-  Removed  all  class  inline  functions  due  to  compiler 
limitations  (CC  compiler  is  not  a  "full"  C++) . 

+/ 

•includeCostore/ostore . hh> 

•include<ostore/coll . hh> 

*include<ostore/relat . hh> 

*include<atdio . h> 

•includa<stdlib.h> 

•include<atring . h> 

*include<debug . hh> 

•include"hexboard . hh” 

uiimiiiiiiiiniiiiiiiimiiiiiimimiiiiiimiiiniiiimiiiiiiii 
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haxboard: :  haxboard (  char  *name,  int  width,  int  height  ) 

{ 

DEBUG. IHITC  "HEIBOARD"  .  "haxboard: :hexboard"  ); 

DEBUG. OUT  (  "entering",  1  ); 

•trncpy(  haxboard :: name ,  naaa,  9  ); 

haxboard: : name [9]  *  *\0*; 

haxboard: : width  «  width; 

aprintf (  width.atr,  "Xd" ,  width  ); 

haxboard: :haight  ■  haight; 

aprintf (  haight. atr,  "Xd”,  haight  ); 

DEBUG. OUT (  aprintf (  BUG,  "Xa  Xa  Xa",  naaa,  width.atr,  haight. atr  ),  2  ); 

> 

iiiiiiiiiumimminiiiiiitiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiiiii 

environment  •haxboard: : clone (  oa.databaaa  *db,  oa. configuration  •nodal. config  ) 

< 

DEBUG. IHITC  "HEXBOiRD”  ,  "haxboard :: clona"  ); 

DEBUG. OUT (  "antaring",  1  ); 

anvironmant  *c  *  naw(db,  aodal.config)  haxboard (  naaa,  width,  haight  ); 
raturn  c; 

> 

iiiiiiiiiiiiiiiiiiiuiiiiiiiiiiiiiiiiiiiiiimimiiiiiiiiiiiiiiiiiiii 

char  *hexboard: :quary(  char  adata.itam  ) 

< 

DEBUG. IHITC  "HEIBOARD"  .  "haxboard : : quary"  ); 

DEBUG. OUT (  "antaring".  1  ); 

if  (  !atrcap(  data.itam,  "CLASS"  )  )  < 
raturn  "HEIBOARD"; 

> 

also  if  (  ! atrcmpC  data.itam.  "HAKE"  )  )  { 
raturn  "HEIBOARD” ; 

> 

alaa  if  (  ! atrcmpC  data.itam,  "WIDTH"  )  )  < 
raturn  width.atr ; 

> 

alaa  if  (  ! atrcmpC  data.itam,  "HEIGHT"  )  )  { 
raturn  haight. atr; 

> 

raturn  "ERROR”; 

> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 


3.1.12  hexplay.hh 

The  source  code  for  the  file  hexplay.hh  is  listed  below. 

•ifndaf  ...HEIPLAT.HH 
tdafina  ...HEXPLAY.HH 

/• 

»  •  *•••** 

•  »  llllli  **  •»  •• 

•  ••  i  I  I  ••  •  •  •  • 

(•*••**  «•  **•••»  t  t  f  • 

•  •  *  •#  *  *  lllttt  • 

•  *  *  •••  » 

*  f  <«••*•  *  •  *  ******  *  *  * 

haxplay . hh 

Air  Forca  Instituta  of  Technology 
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Timothy  J.  Halloran 
30  Sap  1993 

•/ 

void  edd.player.to_hexboard(  char  ‘player. class ,  char  «playar_nama , 
int  pos.x,  int  pos.y  ); 

•audit _ HEXPLA'f.HH 


3.1.13  hexplay.cc 

The  source  code  for  the  file  hexplay.cc  is  listed  below. 

/* 

•  •  •••••• 

•  *  ••••••  •••  ••  ••  •• 

»  •>  •••  ••  ••  i  i 

•••••••  •••••  ••  ••••••  •  •  t  • 

•  «  »  ••  •  •  •<••••  • 

•  ••  •••  •  •  t  • 

•  •  ••••«•  •  •  •  llllll  •  •  • 

haxplay . cc 

Air  Forca  Institute  of  Technology 
Timothy  J.  Halloran 
30  Sop  1993 

*/ 

•includa<stdio . h> 

•inclado<atdlib.h> 

•include<Xm/PushB .h> 

•includa<hax . h> 

•include "haxplay .hh" 

void  lower, symbol. cb(  Widget  s,  ItPointer  closure,  ItPointer  call .data  ); 
extern  Widget  map; 

iiiiiuiuiiimiiiiiiiiiiiiiiiiiiiiiniiiiiimiiiiiiuiiimiiiiiiii 

void  add.playor.to_hexboard(  char  ‘player. class ,  char  ‘player .name, 
int  pos.x,  int  poa.y  ) 

< 

XmString  label  ‘  XmStringCreateSimple(  player.name  ) ; 

Widget  symbol  ■  XtVaCreateManagedWidget(  playar.class, 
xmPushButtonWidgetClass,  map, 

XtWhexX,  pos.x, 

XtNhexY,  pos.y , 

XmNlabelString,  label, 

XmNhighlightThickness,  0, 

MULL  ); 

XmStringFraet  label  ) ; 

XtAddCallbackC  symbol,  XmNactivateCallback , 
lower. symbol. cb,  NULL  ); 

> 

////////////////////////////////////////////////////////////////////// 

void  lower.symbol.cb(  Widget  w,  XtPointer  closure,  XtPointer  call  data  ) 

{ 

//  loner  the  symbol  so  that  another  can  be  seen  if  there  are  more  than  one 
XLowerWindow(  XtDisplay(  w  ) ,  XtWindowt  w  )  ) ; 

} 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
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3.1.14  location.hh 

The  source  code  for  the  file  location.hh  is  listed  below. 

•ifndef  ..LOCATION.HH 
•del in*  _ LOCATION.HH 

/• 

• 


0000 

>••• 

•• 

••••• 

0 

•••• 

•  • 

i 

• 

•  • 

0 

• 

• 

0 

0 

0 

••  • 

0 

• 

• 

0 

• 

t 

0 

0 

0 

•  •  • 

0 

• 

• 

•••••• 

• 

0 

0 

0 

•  •  • 

0 

* 

•  • 

• 

0 

• 

0 

0 

0 

•  •• 

•>•• 

•••• 

• 

0 

• 

0 

••» 

•  • 

location.hh 

Air  Forca  Instituta  of  Technology 
Timothy  J.  Halloran 
29  Sap  1993 

*/ 

void  decode. location (  char  ^location,  intA  pos.z,  inti  poa.y  ); 
void  encode. location(  char  ^location,  int  pos.z,  int  pos.y  ); 
void  random.movat  char  ^location,  int  hezboard.vidth,  int  hazboard.height  ); 
tendif  ..LOCATION.HH 

3.1.15  location.cc 

The  source  code  for  the  file  location.cc  is  listed  below. 

/* 


*••• 

■••• 

•• 

•«••• 

• 

••it 

•  • 

• 

0 

•  • 

• 

• 

• 

» 

• 

• 

*•  • 

• 

0 

• 

* 

• 

• 
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• 

< 

•  •  • 
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0 

* 

••*••« 

• 

• 

• 
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•  •  • 

* 

0 

•  « 

0 

f 

• 

• 

• 

• 

•  •• 

•••• 

•••• 

0 

0 

• 

> 

•••• 

•  • 

location.cc 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
29  Sep  1993 

*/ 

tincludetstdio . h> 

•includetstdlib . h> 
tinclude<string .h> 

•include<debug . hh> 

•include"location.hh" 

> include”di ce . hh" 

•define  STREAM  1 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiiiiiiiiiiimiiiiiiii 

void  decode. location(  char  *location,  intA  pos.z,  intA  pos.y  ) 

{. 

DEBUG_INIT(  "LOCATION"  ,  "decode.location"  ); 

DEBUG. OUT (  "entering",  1  ); 
char  pos.z. str[10] ; 
char  *pos.y.str; 

strcpyC  pos.z. str,  location  ); 
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pos_x.str[4]  ■  ’ NO ' ; 
pos.y.str  »  Apos.x.str[5] ; 
pos.x  ■  atoi (  pos.x.str  ); 
pos.y  ■  atoi(  pos.y.str  ); 


DEBUG. OUT (  sprint! (  BOG,  ”pos_x  Xd  pos.y  Xd",  pos.x,  pos.y  ),  2  ); 

} 

////////////////////////////////////////////////////////////////////// 

void  ancode.location(  char  •location,  int  pos.x,  int  pos.y  ) 

< 

DEBUG. IN IT (  "LOCATION"  ,  "ancoda.location"  ); 

DEBUG. 0UT(  "entering",  1  ); 

sprint! (  location,  "X04d-X04d”,  pos.x,  pos.y  ); 

DEBUG. OUT (  sprint! (  BUG,  "Xs",  location  ),  2  ); 

> 

////////////////////////////////////////////////////////////////////// 
void  random.oova(  char  *location,  int  haxboard.vidth ,  int  haxboard.height  ) 
■( 

DEBUG_INIT(  "LOCATION"  ,  "random.move"  ); 

DEBUG. OUT (  "antoring",  1  ); 
int  pos.x,  pos.y; 

DEBUG. OUT(  sprint! (  BUG,  "old  location  Xs",  location  ),  2  ); 
decode. location (  location,  pos.x,  pos.y  ); 


//  make  a  random  move  (six  possible  directions) 
switch  (  roll(  1,  6,  STREAM  )  )  { 


case  1: 

pos.y**;  //  move  up 
break; 
case  2: 

pos.x**;  //  move  right 
break; 

case  3: 

i!  (  pos.x  X  2  ) 

pos.y — ;  //  move  down  !or  an  odd  hex  location 

else 

pos.y**;  //  move  up  !or  an  even  hex  location 
pos.x**;  //  move  right 

break; 
case  4: 


pos.y — ;  //  move  down 
break; 
case  6: 

pos.x--;  //  move  le!t 
break; 
case  6: 

i!  (  pos.x  X  2  ) 

pos.y — ;  //  move  down  ior  an  odd  hex  location 

else 

pos.y**;  //  move  up  !or  an  even  hex  location 
poa.x — ;  //  move  left 
break; 


//  make  sure  the  player  stays  on  the  hexboard 
il  (  pos.x  >  haxboard.vidth  )  pos.x  =  1; 
i!  (  pos.x  <  1  )  pos.x  ”  hexboard. width; 
i!  (  pos.y  >  haxboard.height  )  pos.y  *  1; 
i!  (  pos.y  <  1  )  pos.y  »  hexboard .height ; 

encode. location(  location,  pos.x,  pos.y  ); 
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DEBUG. OUT (  sprint f(  BUG,  "nan  location  %s",  location  ),  2  ); 

> 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimmimmiiiiiiiiiiimiiiiii 

3.1.16  logitem.hh 

The  source  code  for  the  file  logitem.hh  is  listed  below. 

•ifndef  _ LOGITEM.HH 

(define  ...LOGITEM.HH 

/• 


•••• 

•••* 

••• 

•  •••••  *<•••• 

•  • 

• 

• 

•  * 

• 

*  • 

••  •• 

• 

• 

• 

• 

•  •••*• 

•  •*  * 

• 

• 

•  ••• 

• 

•  • 

•  • 

• 

• 

•  • 

• 

*  • 

•  • 

••*• 

••** 

••• 

•  tttlll 

•  • 

logitem.hh 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
20  Ang  1993 

*/ 

class  logitem  { 
public : 

char  search_aircraft[10] ; 
char  truck.found[10] ; 
char  location.found [10J ; 
int  time; 
logitem  *nezt; 

logitem(  char  esearch.aircraft ,  char  etruck.f ound ,  char  elocation.found, 
int  time  ) 

< 

strncpy(  logitem: : sear ch.air craft,  search. aircraf t ,  9  ); 
logitem: : search.aircraf t [9]  «  ’\0'; 
strncpy (  logitem: :truck_f ound,  truck. found,  9  ); 
logitem: : truck. found [9]  *  ’\0’; 

strncpy(  logitem: : location. found,  location.found,  9  ); 
logitem: :location.f ound [9]  «  ’\0’; 
logitem: : time  »  time; 

} 

void  output (  FILE  eoutfile  ) 

i 

fprintfC  outfile,  "XlOs  I  XlOs  I  XlOs  I  X6d  sec\n’ ,  search.aircraf t , 
truck.found,  location.found,  time  ); 

> 

}; 

•endif  ...LOGITEM.HH 

3.1.17  model.hh 

The  source  code  for  the  file  model.hh  is  listed  below. 

•ifndef  ...MODEL.HH 
•define  ...MODEL.HH 

/* 
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•  • 

••  *•  *«•• 

•  •  #  •  •  • 

»  •  *  •  • 

•  •  •  • 

•  •  •  * 

*  •  INI 


«•«••  •••••*  • 

•  •  •  • 

•  •  •*•••  • 

•  *  f  • 

*  *  *  • 

•••••  Htltt  •••••» 


modal .hh 


Air  Force  Institute  of  Technology 
Timothy  J.  Hulloran 
20  Aug  1993 

•/ 

•include" environ . hh" 

•include "event . hh" 

•include"pleyer -hh” 

•include" logitem . hh" 

extern  os.database  *db; 


class  model  { 


public : 

char  name [13] ; 
int  sim.time; 

os_Set<environment*>  members ; 

os_Set<event‘>  events; 

event  ‘first. event ; 

event  ‘last.event; 

environment  ‘first. member; 

environment  ‘last.member; 

logitem  ‘first.logitem; 

logitem  ‘last.logitem; 

os. configuration  ‘model.config; 

persistent<db>  os_Sat<model*>  ‘extent; 

modelC  char  ‘name,  os. configuration  ‘model.config  ); 

model (  model  ‘old.model,  char  ‘name,  os. configuration  *model.config  ); 

"model (  ) ; 

void  clear(  ) ; 

void  run.until_sim_goal.time(  int  goal.sim.time  ) ; 
void  add.environment .member (  environment*  nes.member  ) ; 
void  add.logit*m(  char  ‘search.aircraft,  char  ‘truck.found, 
char  ‘location.found,  int  time  ); 
void  scheduleC  player  ‘to.player,  char*  to.player.name, 
int  at.time,  char  ‘message  ); 

}; 

•endif  _ MODEL. HH 


3.1.18  model.cc 


The  source  code  for  the  file  model.cc  is  listed  below. 


/* 


•  • 

••  ••  •••• 

•  •  «  •  •  • 

»  *  •  •  • 

•  *  •  • 

•  •  *  • 


••*••  •••••• 

•  •  • 

•  •  <•••• 

•  «  • 

*  «  • 
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•  INI  Hitt  •••*••  HIIH 


nodal . cc 

Air  Fore*  Institute  of  Technology 
Timothy  J.  Balloran 
20  Aug  1993 

*/ 

•include<ostore/ostore .hh> 

•includo<ostor«/ coll . hh> 

*include<ostore/r elat . hh> 

•include<stdio . h> 
tincluda<atdlib .h> 

•includo<atring . h> 
f includ«<debug . hh> 

•include "environ . hh" 

•include" event . hh" 
f include"player . hh” 

•include"model .  hh" 

•include" log! ten . hh” 

•define  TRUE  1 
•define  FALSE  0 

extern  os.database  *db; 

////////////////////////////////////////////////////////////////////// 

model: : model (  char  *name,  os.conf igoration  *model_config  ) 

{. 

DEBUG_INIT(  "MODEL"  ,  "model: : model"  ); 

DEBTT6_0DT(  "entering",  1  ); 

//  create  the  new  model  (it  atarta  off  empty) 

atrncpy(  model: :name,  name,  12  ); 

model: -.name [12]  ■  ’\0’j 

model: :model_conf ig  *  model. config; 

aim. time  »  0; 

firat .event  ■  last. event  »  NULL; 
firat.member  ■  last .member  »  NULL; 
first.logitem  «  laat.logitem  »  NULL; 

extent->insert(  thia  ) ; 

} 

////✓✓/////////////////////✓////////////////////////////////////////// 
model: :model(  model  eold.model,  char  vname,  oa. configuration  smodel.config  ) 
( 

DEBUG_INIT(  "MODEL"  ,  "model: :model(copy)"  ); 

DEBUG. OUT (  "entering”,  1  ); 

//  create  the  new  model 
atmcpy(  model:: name,  name,  12  ); 
model: : name [12]  ■  ’ \0 ’ ; 
model: :model.conf ig  *  model.config; 
first .event  »  last.event  »  NULL; 
firat.member  ■  last. member  »  NULL; 
firat.logitem  »  laat.logitem  ■  NULL; 

//  copy  the  aimulation  time 
aim.time  ■  old_model->aim_time; 

//  copy  all  the  evironment  members 

for  (  environment  *m  ■  old_model->first .member  ;  m  ;  m  »  m->next  )  [ 
add. environment. member (  m->done(  db,  model.config  )  ); 

} 
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//  copy  all  tha  events 

for  (  avant  *a  »  old_model->first. event  ;  a  ;  a  ■  a->naxt  )  { 

//  find  tha  handla  to  tha  nan  player  in  thia  copy  of  tha  nodal 

int  achadnlad.avant  ■  FALSE; 

for  (  ■  ■  first. aeabar  ;  n  ;  a  ■  m->next  )  { 

if  (  !atrcnp(  m->query(  "DAME"),  a->to_playar_na»a  )  )  { 
playar  *p  »  (playar*)n; 

schedule (  p,  a->to_player_name ,  e->time,  e->message  ); 
achadnlad.avant  ■  TRUE; 

} 

> 

if  (  ! achadnlad.avant  )  { 

fprintf(  atdarr,  "ERROR [nodal :: modal (copy)]  unable  to  copy  an  evant\n"  ); 
axit(  i  ) ; 

} 

> 

//  copy  all  tha  logitems 

for  (  logitem  *1  =  old.modeWfirst.logitem  ;  1  ;  1  ■  l->next  )  { 

add.logitamC  l->search. aircraft,  l->truck_found,  l->location_fonnd,  l->time  ); 

> 

extant- >inaart<  thia  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

modal: ; 'modal (  ) 

DEBUG. I»IT(  "MODEL"  ,  "modal: : 'modal"  ); 

DEBUG. OUT (  "entering",  1  ); 

clear (  ) ; 

extent->remove(  thia  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

void  modal: :claar(  ) 

•C 

DEBUG_MIT(  "MODEL”  ,  "model ::  dear"  )  ; 

DEBUG. 0UT(  "entering",  1  ); 
environment  etemp.m; 
avant  etamp.a; 
logitem  etamp.l; 

//  delate  all  the  environment  member a 
for  (  environment  *m  «  first .member  ;  m  ;  )  < 
tamp.m  ■  m->next; 
delate  m; 
m  *  tamp.m; 

> 

members .clear (  ); 

first .member  »  laat. member  *  HULL; 

//  delete  all  tha  events 
for  C  event  *e  »  firat.event  ;  e  ;  )  { 
temp.e  ■  e->next; 
delete  e; 
a  m  tamp. a ; 

} 

events. clear (  ); 

firat.event  *  laat.event  »  HULL; 

//  delete  all  the  logitema 
for  (  logitem  *1  »  first. logitem  ;  1  ;  )  { 
temp.l  ■  l->next; 
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delete  1; 

1  ■  temp.l; 

} 

first .logitam  •  last. logitam  *  HULL; 

//  rasat  the  simulation  tima 
sim.time  •  0; 

} 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIHIIIIIIIIIIIIIIIIIIIIIII 

void  aodal : : run.until_sim.goal_time(  lot  goal.aia.tima  ) 

{ 

DEBUG. IM IT (  "MODEL"  ,  "aodal :  :run_until.sim_goal.time"  ); 

DEBUG. OUT (  "entering”,  1  ); 
event  *executing.event; 

//  do  nothing  if  tha  aodal  ia  asked  to  run  backuards 
if  (  sia.tiaa  >■  goal. aim. tiaa  )  ratnrn; 

//  aiaulata 

whila  (  aim. tiaa  <  goal.aia.tima  )  { 
if  (  firat. avant  MOLL  )  { 

//  thara  ara  no  avanta  laft  ao  npdata  tiaa  and  exit 
a in. tima  «  goal.aia.tima; 

> 

alaa  if  (  firat_avant->tiaa  >»  goal.aim.tiaa  )  { 

//  tha  next  avant  doaa  not  occur  bafora  tha  goal  tiaa 
aim. tima  *  goal.aia.tima; 

} 

alaa  { 

II  azacnta  a  aingla  avant 
azacuting.avant  ■  firat .avant; 
firat.avant  a  f irat_avant->nazt ; 
if  (  firat.avant  BULL  )  { 

//  thara  ara  no  aora  avanta 
laat.avant  »  HULL; 

> 

alaa  { 

//  thara  ia  at  laaat  ona  remaining  avant  in  tha  avant  liat 
firat.avant->prav  ■  HULL; 

> 

aim.tima  *  axacuting_avent->tima ; 

//  axacuta  tha  avant 

DEBUG. OUT (  aprintf (  BUG,  "Xs  axacnting  \"XaV"', 

executing.event->to.player.name,  executing. event->message  ),  2  ); 
axecuting_event->to_player->execute(  axacuting_avant->aaaaaga,  thia  ); 
//  daatroy  tha  avant  (no  paraiatant  object  laaka  plaaaa) 
avanta.raaova(  azacuting.avant  ); 
delate  azacuting.avant ; 

> 

> 

} 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  modal: : add. environment. member (  environment*  nau.mambar  ) 

{. 

DEBUG. IHIT(  "MODEL"  ,  "model ::  add. environment .member”  ); 

DEBUG. OUT (  "antaring",  1  ); 

//  inaart  into  the  ObjactStora  database  aat  of  member a 
member a . insert  (  nau.mambar  ); 

//  inaart  the  nav  environment  member  on  tha  mambar  liat 
if  (  first .member  ■■  HULL  )  < 

//  inaart  tha  member  as  tha  only  mambar  on  tha  member  liat 
first .member  *  last .member  •  nau.mambar; 
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new. member- >next  *  HULL ; 

> 

else  < 

//  insert  the  new  member  at  the  end  of  the  member  list 
last.member-knext  ■  new .member ; 
last. member  ■  new. member ; 
ne w_ member - >next  >  HULL; 

> 

> 

////////////////////////////////////////////////////////////////////// 
void  model :: add.logitemC  char  *search.aircraft,  char  struck, found, 
char  elocation.foond,  int  time  ) 

DEBUG.  Ill  IT  (  "MODEL"  ,  "model ::  add.  logitem"  ); 

DEBUG. OUT (  "entering”,  1  ); 

//  create  a  new  logitem 

logitem  enev.logitem  »  new  (db, model. config)  logitem (  search.aircraft, 
track. found,  locat ion. found,  time  ); 

//  insert  the  new  logitem  on  the  logitem  list 
if  (  first. logitem  *•  HULL  )  { 

//  insert  the  logitem  as  the  only  logitem  on  the  list 
first.logitem  »  last.logitem  »  new.logitem; 
new_logitam->next  »  BULL; 

> 

else  { 

//  insert  the  nee  logitem  at  the  end  of  the  list 
last_logitem->next  •  new.logitem; 
last.logitem  «  new.logitem; 
new_logitem->next  ”  NULL; 

> 

} 

////////////////////////////////////////////////////////////////////// 
void  model: : schedule (  player  eto.player,  char*  to.player.name , 
int  at. time,  char  ^message  ) 

{ 

DEBUG. INIT(  "MODEL"  ,  "model: schedule"  ); 

DEBUG .OUT (  "entering",  1  ); 

//  create  a  new  event 

event  *new.event  *  new(db, model. config)  event (  to.player,  to.player.name, 
at. time,  message  ); 

//  insert  into  the  ObjectStore  database  set  of  events 
a vents. insert (  new.event  ); 

//  insert  the  new  event  on  the  event  list 
if  (  first.evant  ■■  NULL  )  ■( 

//  insert  the  event  as  the  only  event  on  the  event  list 
first.evant  ■  last .event  *  new.event; 
new_event->nert  *  now. event- >prav  »  NULL; 

> 

else  { 

//  insert  the  event  in  the  event  list  in  time  order 
for  (  event  *e  *  last.event  ;  e  ;  e  *  e->prev  )  { 
if  (  e->time  <*  new_event->time  )  •{ 

//  insert  the  event  after  "e” 
new.event->next  ■  e->next; 
new_event->prev  *  e; 
e->next  ■  new.event; 
if  (  e  **  last.event  )  ■{ 

//  this  item  is  now  the  last  item 
last.event  ■  nev.event; 
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> 

•Is*  < 

new.event->next->prev  ■  new.event ; 

> 

break; 

> 

•Isa  if  (  a  »»  first. avant  )  { 

//  insert  tha  avant  at  tha  vary  beginning  of  tbs  event  list 

new. e vent ->prev  ■  e->prev; 

naa.avant->naxt  ~  a; 

a->prav  •  new. avant; 

first. avant  ■  nas.avant; 

braak; 

} 

> 

> 

> 

////////////////////////////////////////////////////////////////////// 


3.1.19  player,  hh 

The  source  code  for  the  file  player.hh  is  listed  below. 

•ifndaf  _ PLAYER.HH 

idefina  _ PLATER.HB 

/* 


•••*•• 
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playar.hh 

iir  Force  Institnta  of  Technology 
Timothy  J.  Halloran 
20  Ang  1993 

*/ 

•includa<stdio .h> 

•include" environ . hh" 

class  modal; 

class  player  :  public  environment  { 
public : 

virtual  "player (  ) 

< 

//  empty 

> 

virtual  void  execute (  char  'message ,  model'  sim.model  ) 

■C 

//  this  coda  should  not  ba  called 

fprintf  (  stdarr,  "WARHIHG  [player : :  execute]  base  class  function  calledW  ); 

} 

}; 

tendif  ...PLATER.HB 
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3.1.20  simbench.cc 

The  source  code  for  the  file  aimbench.cc  is  listed  below. 

/* 


•  •iinn  hi 

•  •  •  • 

•  •  *  • 

s  s  *#*#•  • 

*******  *  s 

*  •  •  • 
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***** 

• 

•  ****** 
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* 

* 

999 * 

t  t 

aimbench.cc 


This  module  contains  all  the  user  interface  code.  The  user  interface 
uses  the  OSF  Motif  look  and  feel.  Very  little  in  this  module  should 
need  to  be  changed  to  port  the  "simbench"  program  to  a  new 
object-oriented  DBMS. 

Air  Force  Institute  of  Technology 

Timothy  J.  Halloran 

16  Aug  1993 

Revisions: 

24  Oct  1993  -TJH-  Fixed  a  bug  in  the  run  until  timing,  the  timer  was 
waiting  until  the  user  pressed  the  OX  button. 

*/ 

#include<stdio . h> 

<include<stdlib.h> 

*include<sys/time .h> 
tinclude<sy s/resour ce .  h> 

*include<stdarg . h> 

*include<Xm/DialogS . h> 

#indude<Xm/Form .  h> 

•indude<Zm/Frame . h> 

#include<Xm/Label .h> 

•inclnde<Xm/MainW . h> 
tinclude<Im/MessageB . h> 
f include<Zm/PanedU . h> 

* include<Xm/PushB . h> 

9 include<Xm/RowColumn . h> 

#include<Xm/Scrol ledW . h> 

* include<Zm/Select ioB . h> 

•include<Zm/Text . h> 

•include<hex.h> 
tinclude”simulata .hh" 

•indude"stopwtch  .hh" 

extern  "C"  int  getpagesize(  ) ;  //  not  defined  in  a  header  file 

II  declare  functions  used  in  this  module 
//////////  Utility  and  Setup  Routines  ////////// 
void  creat e. map. dialog (  ) ; 
void  create_rwnning_didog(  ) ; 
double  get_dock.time(  ) ; 


104 


void  set.starting.menu.state(  ); 
void  setup _nain _« indow (  ) ; 
void  updata_map.dialog(  ) ; 

//////////  User  Information  Routines  ////////// 
void  log_print(  char  *fmt,  ...  ); 
void  msg.printC  char  «fmt ,  ...  ) ; 
void  update.model.msg(  int  model. exists  ) ; 

//////////  It  Callback  Support  Routines  ////////// 
char  *get  _  about  .mes  sage (  ) ; 

Widget  get.top_shell(  Widget  v  ) ; 

//////////  It  Callback  Routines  ////////// 

void  done_runnlng.cb(  Widget  s,  ZtPointer  closure,  ItPointer  call. data  ); 
void  aenu_configure.cb(  Widget  s,  ItPointer  closure,  ZtPointer  call.data  ); 
void  nenu.execute.cb(  Widget  0,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  menu.file_cb(  Widget  s ,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  menu.help.cb(  Widget  v,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  aenu_post.cb(  Widget  0,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  take_dosn_cb(  Widget  w,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  take.dosn_named.cb(  Widget  o,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  try_connect_cb(  Widget  s,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  try_create_scenario_cb(  Widget  s,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  try_nev_model.cb(  Widget  w,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  try.open.model.cb(  Widget  v,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  try.run.until.cb(  Widget  0,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  try_save_as.cb(  Widget  0,  ZtPointer  closure,  ZtPointer  call.data  ) ; 
void  try.set.time.ratio.cM  Widget  0,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  try.set.time_slice.cb<  Widget  0,  ZtPointer  closure,  ZtPointer  call.data  ); 
void  update_map.cb(  Widget  0,  ZtPointer  closure,  ZtPointer  call.data  ); 
//////////  Zt  Work  Procedures  ////////// 

Boolean  run_until_0ork_proc(  ZtPointer  client.data  ) ; 

Boolean  run.0ork.proc (  ZtPointer  client.data  ); 

//////////  Generic  Ask  User  Routines  ////////// 
int  generic.ask.userC  unsigned  char  dialog.type,  char  (question, 
char  (ansver.yes ,  char  » ansver.no ,  int  default. answer  ) ; 

////////// 


•define  HEX .RADIUS  40 
•define  TITLE.MSG 
•define  VERSIOH.MSG 
•define  COHHECT.DIALOG.MSG 
•define  SLICE.DIALOG.MSG 
•define  RATIO.DIALOG.MSG 


"AFIT  Simulation  Benchmark" 
"ObjectStore  Version” 

"Enter  ObjectStore  database  filename:" 
"Enter  desired  time  slice:" 

"Enter  desired  time  ratio:" 


•define  RUN  .UNTIL  .DIALOG. MSG  "Enter  desired  goal  time  for  run:” 


String  fallbacks [ ]  =  { 

"SimBench*background :  *ffc633", 

"SimBench*f oreground:  black", 

"SimBench*f ontList :  -*-helvetica-medium-r-*-*-18-*-*-*-*-*-*-»", 

"SimBench*hexboard . background :  f orestgreen" , 

"SimBench*hexboard. hexLabelFont :  fixed" , 

"SimBonch*hexboard . hexOut line :  white" , 

"SimBench*hexboard*f ontList :  fixed" , 

"SimBench*hexboard*AIRCRAFT*background :  grey" , 
"SimBench*hexboard*TROCK (background :  goldenrod" , 

"SimBench*log(f ontList :  fixed", 

NULL, 

}; 


char  (scenario.prompts  □  ■  { 
"Humber  aircraft : " , 

"Humber  trucks:", 
"Hexboard  size:", 

}; 
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//  used  by  generic. ask.uaer 
fdefine  YES  1 
tdefine  MO  2 


//  global  and  nodal*  variables 
•tatic  XtAppContaxt  app; 
static  Uidgat  toplaval; 
static  Uidgat  massage; 
static  Uidgat  log; 
static  Uidgat  ronning.dialog ; 
static  Uidgat  map.dialog  •  MULL; 
static  Uidgat  map. control; 

Uidgat  map  »  NULL;  //  visible  to  "hexplay . cc" 
static  int  ron_until.goal.tima; 
static  stopwatch  eglobal. timer; 
static  double  naxt.clock.tima.to.run; 
static  doubla  last.run_clock.time; 

////////////////////////////////////////////////////////////////////// 

void  main(  int  argc,  char  »»argv  ) 

•C 

toplaval  >  XtVaAppInitializeC  Aapp,  "SimBonch",  NULL,  0, 

(Cardinal  *)kargc,  argv,  fallbacks,  NULL  ); 

It VaSat Values (  toplaval, 

XtNtitla,  "AFIT  SimBanch  -  ObjactStore  Version", 

NULL  ); 

satup.main.windovC  ) ; 

s*t.starting_manu_stata(  ) ;  //  Not  all  menu  choices  are  sensitive 

update_model_msg(  FALSE  ) ; 

XtRealizeVidgetC  toplaval  ); 

craata_running_dialog(  ) ; 

Xt AppHainLoop (  app  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

////////////////////////////////////////////////////////////////////// 

//// 

////  Utility  and  Setup  Routines 

//// 

////////////////////////////////////////////////////////////////////// 

void  craate_map_dialog(  ) 

{ 

map. dialog  >  XtVaCreatePopupShellC  "map” , 
xmDialogShellUidgetClass ,  toplaval , 

XtNtitla,  "View  Map", 

XmNmappadUhanManagad,  False, 

NULL  ); 

Uidgat  pane  •  XtVaCraateUidget (  "pane”,  xmPanedUindovHidgetClass , 
map.dialog, 

XmNsashUidth,  1, 

XmNsashHeight ,  1, 

NULL  ); 

//  set  up  the  control  area  of  the  dialog 
map.control  ■  XtVaCreateManagedUidgetC  "control" , 
xmScrolledUindovUidgetClass , 
pane, 

XmMheight,  400, 

XmMscrollingPolicy ,  XmAUTOMATIC, 

MULL  ); 

//  sat  up  the  action  area  of  the  dialog 
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Widget  action  *  XtVaCreateWidget(  "action",  xmFormWidgetClass ,  pane, 

ImNf ractionBaaa ,  7, 

(TOLL  ); 

Widget  ok  ■  XtVaCreateManagedWidgetC  "OK", 
xmPushButtonWidgetClass,  action, 

ImNtopAttachment ,  XmATTACH.FORM , 

XmNbottomlttachment,  XmATTACH.FORM , 

XmNleft Attachment ,  XmlTTACH.POSITION, 

ImNlef tPoaition ,  1, 

XmNright Attachment ,  ImlTTlCH. POSIT ION, 

ImNrightPosition,  2, 

XmNshovAsDefi ault ,  True, 

XmNdef aultButtonShadouThickness ,  i , 

NULL  ); 

XtAddCal’backC  ok,  XmNactivateCallback, 
take.doun.named.cb,  "map"  ); 

Widget  update  ■  XtVaCreateManagedWidgetC  "Update”, 

XmPushButtonWidgetClass,  action, 

XmNtopittachment,  XmATTACH.FORM, 

XmNbottomlttachment ,  XmATTACH.FORM , 

XmNlelt Attachment ,  XmATTACH.POSITION , 

ImNlef tPoaition,  3, 

XmNr ight Attachment ,  XmlTTACH.POSITION , 

XmNrightPosition,  4, 

XmNdefauItButtonShadovThickneea,  1, 

NULL  ); 

XtlddCallbackC  update,  XmNactivateCallback, 
update.map.cb,  "map"  ) ; 

Widget  help  <•  XtVaCreateManagedWidgetC  "Help", 
zmPushButtonWidgetClaaa ,  action, 

XmNtopittachment,  XmATTACH.FORM, 

XmNbottomlttachment ,  XmATTACH.FORM , 

ImNlef t Attachment ,  ImATTACH.POSITION , 

XmNlef tPoaition,  5, 

XmNr ight Attachment ,  XmlTTACH.POSITION, 

XmNrightPosition,  6, 

XmHdefaultButtonShadowThickness,  1, 

NULL  ); 

XtSetSenaitiveC  help.  False  ); 

XtManageChildC  action  ) ; 

XtManageChildC  pane  ) ; 

//  make  sure  that  the  action  area  can  be  alvays  be  seen 

XtWidgetGeometry  size; 

size. request. mode  »  CWHeight; 

It query Geometry C  action,  NULL,  Seize  ); 

Xt VaSet Values C  action, 

XmNpaneMaximum,  size. height, 

XmNpaneMinimum,  size. height, 

NULL  ); 

} 

iiiiiiuiiiiiiiiiiiiiimiiiiiiiiiiiiiiiiiiiiiiiuiiiiimiitiiiiiiiii 

void  create.running.dialogC  ) 

{ 

Arg  args  [3] ; 

XtSetArgC  args[0],  XmNdialogSty le ,  XmDIALOG.FULL.APPLICATION.MODAL  ); 

XtSetArgC  args Cl],  XmNautoUnmanage ,  False  ); 

XtSetArgC  args[2],  XmNnoResize,  True  ); 

running.dialog  •  XmCreateWorkingDialogC  toplevel,  "running",  args,  3  ); 

XtUnmanageChi Id C  XmMassageBoxGetChildC  running.dialog,  XmOIALOG.OK.BUTTON  )  ); 

XtUnmanageChi Id (  XmMassageBoxGetChildC  running.dialog,  ImDIALOG. HELP. BUTTON  )  ); 

XtVaSetValuesC  XtParentC  running.dialog  ), 

XtNtitle,  "Running  Simulation", 

NULL  ); 
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> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

doable  get .clock. time (  ) 

{ 

struct  timeval  t ; 

//  read  the  current  clock  time  and  return  it 
if  (  gettimeofday (  At ,  (struct  timezone*)0  )  )  { 

fprintfC  stderr,  "ERROR [get. clock. time]  unable  to  read  time\n"  ); 
exit(  1  ); 

} 

return  (  (double) t . tv.sec  ♦  (double) t . tv.usec  /  1000000.0  ); 

> 

////////////////////////////////////////////////////////////////////// 

void  set.starting_menu_atate(  ) 

{ 

Widget  a. menu; 

//  Set  parts  of  the  the  "File"  menu  insensitive 

if  (  a.menu  «  XtNameToWidget (  toplevel,  //  Disconnect 

"main. window . menu.bar . popup.file.menu. fila.menu .button. 1"  )  ) 
XtSetSensitiveC  a.menu.  False  ); 
if  (  a.menu  ■  XtNameToWidget (  toplevel,  //  New  Model.. . 

"main. window. menu.bar .popup_file.menu.file.menu. but ton. 2"  )  ) 
XtSetSensitive(  a.menu,  False  ); 
if  (  a.menu  «  XtNameToWidget (  toplevel,  //  Open  Model... 

"main. window. menu.bar. popup.file .menu. file.menu.button.3"  )  ) 
XtSetSensitiveC  a.menu.  False  ); 
if  (  a.menu  ■  XtNameToWidget (  toplevel,  //  Close 

"main.window. menu.bar. popup.file_menu.file_menu.button.4"  )  ) 
XtSetSensitiveC  a.menu,  False  ); 
if  (  a.menu  »  XtNameToWidget (  toplevel,  //  Save  Xs . . . 

"main.window. menu.bar. popup_file_menu.file_menu.button_5"  )  ) 
XtSetSensitiveC  a.menu.  False  ); 

//  Set  the  entire  "Configure"  menu  insensitive 

if  (  a.menu  »  XtNameToWidget (  toplevel,  "main.window. menu.bar .button.l"  )  ) 
XtSetSensitiveC  a.menu,  False  ); 

II  Set  the  entire  "Execute"  menu  insens.tive 

if  (  a.menu  ■  XtNameToWidget (  toplevel,  "main.window . menu.bar . button_2"  )  ) 
XtSetSensitiveC  a.menu,  False  ); 

//  Set  the  entire  "Post  Process”  menu  insensitive 

if  (  a.menu  *  XtNameToWidget (  toplevel,  "main.window. menu.bar .button.3”  )  ) 
XtSetSensitiveC  a.menu.  False  ); 

> 

llllllllllilllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  satup.main.windowC  ) 

{ 

//  global  variables:  Widget  toplevel 

Widget  main.window  >  XtVaCreateManagedWidget (  "main.window", 
xmMainWindowWidgetClass,  toplevel, 

NULL  ); 

XmString  file  ■  XmStringCreateSimpleC  "File"  ); 

XmString  configure  ■  XmStringCreateSimpleC  "Configure"  ) ; 

XmString  execute  ■  XmStringCreateSimpleC  "Execute"  ) ; 

XmString  post  •  XmStringCreateSimpleC  "Post  Process"  ) ; 

XmString  help  *  XmStringCreateSimpleC  "Help"  ); 

Widget  menu.bar  •  XmVaCreateSimpleMenuBarC  main.window,  "menu.bar", 
XmVaCASCADEBUTTON ,  file,  ’F\ 

XmVaCASCADEBUTTON ,  configure,  ’C’, 

XmVaCASCADEBUTTON ,  execute,  >E’ , 
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XmVaCiSCADEBUTTOM ,  post,  'P> , 
XmVaCASCADEBUTTON ,  hslp,  ’B’, 

Minx  ); 

XmStringFreeC  fils  ) ; 

XmStr ingFree (  conf igure  ) ; 
XmStringFreeC  execute  ) ; 
XmStringFreeC  post  ) ; 
XmStringFreeC  help  ) ; 


//  Inform  ths  MenuBar  which  ons  of  its  CascadeButtons  contains  tha  "Hslp"  nsnu 
Widget  help.menu; 

if  (  help.menu  »  XtNameToWidgetC  menu.bar,  "bntton.4"  )  ) 

XtVaSstValnss (  menu.bar,  XmNmenuHelpWidget ,  hslp.msnn,  MULL  ); 


//  first  msnn  is  ths  "Fils”  msnu 


XmString  connect  •  XmStr ingCreateSimpleC  "Connect..."  ); 

XmString  disconnect  «  ImStr ingCr eateSimpls (  "Disconnect "  ); 

XmString  new .model  •  ImStr ingCreateSimpleC  "Maw  Model. . ."  ); 

XmString  open.model  ■  XmStringCreatsSimple (  "Open  Modal..."  ); 
XmString  close.model  »  XmStringCreatsSimple (  "Close"  ); 

XmString  save.as .model  *  XmStringCreatsSimple (  "Saws  As..."  ); 
XmString  quit  «  ImStr ingCreateSimpleC  "Exit"  ) ; 

XmVaCreateSimplaPnlldownManu(  menn.bar,  "fils.menu" ,  0,  msnu.fila.cb. 


XmVaPUSBBUTTON , 
XmVaPUSHBUTTON , 
XmVaSEP ARATOR , 
XmVaPUSHBUTTON , 
XmVaPUSHBUTTON, 
XmVaPUSHBUTTON, 
XmVaPUSHBUTTON , 
ImVaSEP ABATOR , 
XmVaPUSHBUTTON, 
NULL  ); 


connect,  NULL,  NULL,  MULL, 
disconnect,  NULL,  NULL,  NULL, 

nes.model,  ’N’,  NULL,  NULL, 
open.model,  ’0*,  NULL,  NULL, 
close.model,  'C',  NULL,  NULL, 
save.as .model ,  ’S’,  NULL,  NULL, 

quit ,  NULL ,  NULL ,  NULL , 


XmStringFreeC  connect  ) ; 
XmStringFree(  disconnect  ) ; 
XmStringFreeC  nes.model  ) ; 
XmStringFreeC  open.model  ) ; 
XmStringFreeC  close.model  ) ; 
XmStringFreeC  save.as.model  ) ; 
XmStringFreeC  quit  ) ; 


//  second  menu  is  the  "Configure"  menu 

XmString  create.scenario  =  ImStr ingCreateSimpleC  "Create  Scenario..."  ); 
XmString  claar.scenario  =  XmStringCreatsSimple C  "Clear  Scenario"  ) ; 
ImVaCreateSimplePulldosnMenuC  menu.bar,  "configure.menu",  1, 
menu. conf igur e. cb , 

XmVaPUSHBUTTON,  create.scenario,  ’C’,  NULL,  NULL, 

XmVaPUSHBUTTON,  claar.scenario,  ’S’,  NULL,  NULL, 

NULL  ); 

XmStringFreeC  create.scenario  ) ; 

XmStringFreeC  claar.scenario  ) ; 


//  third  menu  is  the  "Execute"  menu 

XmString  time.slice  »  XmStr ingCreateSimpleC  "Set  Time  Slice..."  ); 

XmString  time.ratio  *  XmStr ingCreateSimpleC  "Set  Time  Ratio..."  ); 

XmString  run  ■  XmStr ingCreateSimpleC  "Run"  ) ; 

XmString  run.until  ■  ImStringCreateSimpleC  "Run  Until..."  ); 

XmVaCr eateSimplePulldounMenu C  menu.bar,  "execute.menu" ,  2,  menu. execute. cb, 
XmVaPUSHBUTTON,  time.slice,  ’S>,  NULL,  NULL, 

XmVaPUSHBUTTON,  time.ratio,  ’T>,  NULL,  NULL, 

XmVaSEP ARATOR, 

XmVaPUSHBUTTON,  run,  ’R\  NULL,  NULL, 

XmVaPUSHBUTTON,  run.until,  ’U’ ,  NULL,  NULL, 

HULL  ); 
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XmStringFreeC  time.slice  ) ; 

XmStringFreeC  time. ratio  ) ; 

XmStringFreeC  run  ) ; 

XmStringFreeC  run. until  ) ; 

//  fourth  menu  is  the  "Post  Process"  menu 

ImString  vies  ■  XmStringCreateSimpleC  "Vies  Nap. . ); 

XmString  reports  »  XmStringCreateSimpleC  "Generate  Report"  ) ; 

XmVaCreateSimplePulldosnMenu (  menu. bar,  "post.menu",  3,  menu.post.cb, 
XmVaPUSHBUTTON ,  vies,  ’V’,  MULL ,  MULL, 

XmVaPUSHBUTTON ,  reports,  *R>,  MULL,  NULL, 

MULL  ); 

XmStringFreeC  vies  ) ; 

XmStringFree(  reports  ); 

//  fifth  menu  is  the  "Help”  menu 

XmString  about  •  XmStringCraateSimpleC  "About  SimBench..."  ); 

XmVaCreateSimplePulldosnMenu (  menu.bar ,  "help. menu" ,  4,  menu.help.cb, 
XmVaPUSHBUTTON,  about,  ’A’,  NULL,  NULL, 

NULL  ); 

XmStringFreeC  about  ) ; 

XtManageChildC  menu.bar  ) ; 

Midget  pane  •  XtVaCreateHidgetC  "pane",  zmPanedUindosHidgetClass , 
main.sindos, 

XmNsashWidth,  1, 

XmNsashHeight ,  1, 

NULL  ); 

Arg  ergs [9] ; 

XtSetArgC  args[0],  XmNross,  20); 

XtSetArgC  args[l],  ImNeolumns,  80); 

XtSetArgC  args[2],  XmNeditable,  False); 

XtSetArgC  args[3],  XmNeditHode,  XmMULTI.LINE.EDIT) ; 

XtSetArgC  args  [4],  XmNvordWrap,  True); 

XtSetArgC  ergs [6],  XmNscrollHorizontal ,  False); 

XtSetArgC  args  [6] ,  XmNblinkKate ,  0); 

XtSetArgC  args[7],  XmNeutoShosCursorPoaition,  True); 

XtSetArgC  args [8],  ImNcursorPositionVisible,  False); 

log  ■  XmCreateScrolledTextC  pane,  "log",  args,  9  ); 

XtManageChildC  log  ) ; 

Midget  message.frame  *  XtVaCreateManagedMidgetC  "meesage.freme" , 
xmFrameWidgetClass ,  pane, 

XmNshadosTFpe,  XmSBAOOM.IN, 

NULL  ); 

message  »  XtVaCreateManagedMidgetC  "message",  zmLabelUidgetClass , 
message.frame , 

XmN alignment ,  ImAL I GNMENT. BEG INN IN G , 

NULL  ); 

//  make  sure  that  the  message  area  can  be  always  be  seen 

XtHidgetGeometry  size; 

size.request.mode  »  CMHeight; 

XtQueryGeometryC  message.frame,  NULL,  Asize  ); 

Xt VaSet Values C  message.frame, 

XmNpaneMazimum,  size. height, 

XmNpaneMinimum,  size. height, 

NOLL  ); 

XtManageChildC  pane  ) ; 

Xt VaSet Values C  main. window, 

XmHmenuBar,  menu.bar, 

XmNworkHindow,  pane, 
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HULL  ); 

> 

////////////////////////////////////////////////////////////////////// 

void  update.map .dialog (  ) 

int  map. width; 
iat  map.haight; 
donbla  alapaod.tima; 

if  (  map  )  < 

//  destroy  the  old  map 
XtDestroyHidget (  map  ) ; 
map  »  HULL; 

> 

//  start  the  timer  to  time  the  map  update 
stopwatch  map .timer ; 
map .timer. start (  ); 

if  (  !sim.get.hezboard_size(  map. width,  map.haight  )  )  { 

//  failed  to  determine  the  size  of  the  hexboard 
generic_ask_nser(  ImDIALOG.ERROR , 

"Unable  to  determine  the  size  of  the  hexboard", 

“OK",  HULL,  TES  ); 

} 

else  { 

map  «  XtVaCraateUidget (  "hexboard",  hexHidgetClass ,  map.control, 
XmHborderUidth ,  0, 

XtNhexRadius ,  HEX.RADIUS, 

XtHnnmberHexX ,  map. width, 

XtHnnmberHexT,  map.haight, 

HULL  ); 

sim.add.players_to_hexboard(  ) ; 

XtManageChildC  map  ) ; 

> 

update.model.msgC  TRUE  ) ;  //  update  the  message  ares 

II  stop  the  timer 

elapsed. time  »  map. timer .stop(  ); 

log.print(  "Creating  the  map  took  X7.3f  saconds\n",  elapsed.time  ); 

} 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

llll 

1 1 1 1  User  Information  Routines 

llll 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  log_print(  char  *fmt,  ...  ) 

{ 

char  buffer [100] ; 

static  XmTextPosition  wpr.position;  //  maintain  text  position 
va_list  args; 

va_start(  args,  fmt  ); 

(void)  vsprintf(  buffer,  fmt,  args  ); 
va.end(  args  ) ; 

XmTextInsert(  log,  wpr.position,  buffer  ); 
wpr.position  +■  strlen<  buffer  ) ; 

It VaSet Values (  log,  XmHcursorPosition,  wpr.position,  NULL  ); 
XmTextShowPositionC  log,  wpr.position  ); 

} 

IIUIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIUIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
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void  msg_print(  char  *f»t ,  ...  ) 

{ 

char  buff er [100] ; 
va.list  ergs; 

va_start(  arga,  fat  ); 

(void)  vaprintf(  buff or,  fat,  arga  ); 
va_end(  arga  ) ; 

XmString  string  ■  XmStringCreateSimpleC  boffar  ); 

XtVaSet Values!  message, 

XaHXabalString,  at ring, 

HULL  ); 

ZnStringFroaC  atring  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

void  updato. modal. nag (  int  modal. arista  ) 

if  (  modal.axiats  ) 

msg.printC  "Currant  modal:  Xs  [simulation  tiaa  Xd] " . 

sim.get. current .model. name (  ) ,  sim.gat. currant. sim.tima(  )  )  ; 

alsa 

msg.printC  "Currant  modal:  none”  ); 

> 

////////////////////////////////////////////////////////////////////// 

////////////////////////////////////////////////////////////////////// 

//// 

////  Xt  Callback  Support  Routines 

//// 

////////////////////////////////////////////////////////////////////// 

char  *gat .about _m«n«ag«(  ) 

{ 

tdefina  SYSTIHE.MSG  "System  tima  used:1' 

•define  USRTIME.MSG  "User  tima  used.” 

•define  HIHPFAULT.MSG  "Page  faults  (no  physical  I/O):" 

•define  HiJPFRULT.HSG  "Page  faults  (physical  I/O):” 

•define  SHAP.MSG  "Humber  of  program  svaps : " 

•define  MAXSET.HSG  "Maximum  resident  set  size:" 

•define  SEC.MSG  "seconds” 

•define  USEC.MSG  "microseconds" 

•define  BTTE.MSG  "bytes" 

static  char  buffer [500] ; 
struct  rusage  rusage; 

//  lookup  the  system  resource  usage 

if  (  getrusage (  RUSAGE. SELF,  Arusaga  )  )  { 

fprintf(  stderr,  "ERROR [get. about. message]  getrusage  call  failure\n"  ); 
exit(  1  ); 

} 

//  update  the  message 

sprintf (  buffer,  "Xs\nXs\n\nXs  Xd  Xs  Xd  Xs\nXs  Xd  Xs  Xd  Xs\n” 

"Xs  Xd\nXs  Xd\nXs  XdXnXs  Xd  Xs”, 

TITLE.MSG , 

VERSION. MSG, 

USRTIME.MSG , 

rusage . ru.utime . tv. sec ,  SEC.MSG , 
rusage. ru_utime.tv.usec,  USEC.MSG, 

STSTIME.MSG, 

rusage . ru.st ime . tv.sec ,  SEC.MSG , 
rusage . ru.stime . tv.usec ,  USEC.MSG, 

HIHPFAULT.MSG ,  rusage .ru.minf It , 

MA JPFAULT.MSG ,  rusage .ru.ma j fit , 

SHAP.MSG,  rusage. ru.nsuap, 


112 


KAXSET.HSG, 

ruaage. ru.aaxra*  *  ge t page* ire (  ),  BYTE.HSG  ); 
return  buffer; 

} 

////////////////////////////////////////////////////////////////////// 

Widgat  gat.top.ahalK  Widgat  v  ) 

< 

vhile  (  v  Ut  'XtlaWMShelH  >  )  ) 
a  ■  XtParant (  a  ); 
raturn  a; 

> 

////////////////////////////////////////////////////////////////////// 

//✓////////////////////////////////✓////////✓///////////////////////// 

llll 

llll  Xt  Callback  Routinaa 

llll 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiniiiiiii 

void  dona.ranning.cbC  Uidgat  a,  XtPointar  cloaura ,  XtPointar  call.data  ) 

{ 

int  ramova.vork.proc  »  ( int ) cloaura ; 

if  (  ramova.uork.proc  )  { 

XtHorkProcId  aork.id; 

XtVaGatValuas (  a,  ImluaarData,  kaork.id,  HULL  ); 

XtRamovaWorkProc(  aork.id  ) ; 

> 

updata.modal.mag(  TRUE  ) ;  //  updata  tha  aaaaaga  araa 

II  taka  down  tha  running  dialog 
XtRaaovaillCallbacka (  a,  Xnk can cal Callback  ); 

XtPopdoanC  XtParant(  a  )  ); 

XSync(  XtDisplay(  a  ),  0  )j 
XmUpdataDiaplay (  gat.top.ahalK  a  )  ); 

> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  nanu.configura_cb(  Widgat  a,  XtPointar  cloaura,  XtPointar  call.data  ) 

< 

char  buffer [100] ; 

int  itaa.no  »  (int) cloaura; 

atatic  Widgat  craata.acanario.dialog  *  TOLL; 

donbla  alapaad.tima ; 

aaitch  (  itaa.no  )  { 

caaa  0 :  //  uaar  aalactad  "Craata  Scenario ..." 
if  (  ! craata.acanario.dialog  )  { 

craata. a.  -no  io. dialog  ■  Xt VaCraataPopupShall (  " craata. acanario" , 
znDialogShallWidgatClaaa ,  gat.top.ahalK  a  ), 

XtNtitla,  "Craata  Scanario" , 

HULL  ); 

Widgat  pana  a  XtVaCraat  uigat(  "puna",  znPanadWindovWidgatClaaa , 
craata.acanario.dialog , 

ImNsaahWidth,  1, 

XmHsashBaight ,  1, 

TOLL  ); 

//  aat  up  tha  control  araa  of  tha  dialog 

Widgat  control  ■  XtVaCreateWidgetC  "control",  znFornWidgatClaaa,  pane, 
TOLL  ); 

XmString  prompt .text  ■  XmStringCraataSimplaC 
"Entar  your  daairad  acanario  iuformation: "  ); 

Widgat  prompt  ■  ItVaC-  >-taHanagedWidgat(  "prompt",  xmLabalWidgatClaaa , 
control , 

XmSlabalString ,  prompt. text. 
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IaltopAttachaent ,  XaATTACH.FORM , 

XaHlaft Attachnant ,  XaATTACH.FORM, 

XaHrightAttachaant ,  InATTACH. FORM , 

XaHalignaent ,  XaALIGHHEMT.BEGIMHIHG , 

BULL  ); 

XaStringFraeC  pronpt.tezt  ); 

Widget  anbfora  «  prompt; 

Widget  labal,  tazt; 

for  (  int  i  «  0  ;  i  <  Xt Number (  acenario.proapta  )  ;  i++  )  { 
anbfora  »  ItVaCreateWidget (  "anbform" ,  xaFormWidgetClaaa, 
control , 

XaBtopAttacbaant ,  InATTACH. WIDGET , 

XnMtopWidgat ,  anbform, 

XnHlaf t Attachnant ,  XaATTACH.FORM , 

XaHrightAttachaant ,  XaATTACH.FORM, 

HULL  ); 

If  (  1  »•  0  )  XtVaSatVnlnaa(  anbfora,  XaHtopOff sat,  10,  HULL  ); 
labal  “  XtVaCreateManagedWidget (  icanario.proapti [1] , 
znLabelWidgetClaaa ,  anbform, 

XaBtopAttacbaant,  XaATTACH.FORM, 

XnHbottoaAttacbaant ,  XaATTACH.FORM, 

XaHlaft Attachnant,  XaATTACH.FORM, 

XaHalignaent ,  XaALIGHMEBT.BBGIHBIHG , 

HULL  ); 

aprintf(  buffer,  "taxt.Xd" .  i  ); 
tazt  “  XtVaCreateManagedWidget (  buffer, 
zaTaztWldgatClaaa ,  anbfora, 

XaBnazLangth,  10, 

XaHtopAttnchaant ,  XaATTACH.FORM , 

XaHbottomAttachnant ,  XaATTACH.FORM, 

XaHrightAttachaant,  XaATTACH.FORM, 

XaHlaft Attachnant.  XnATTACH.WIDGET , 

XnHlaf tWidget.  labal, 

XaHlef tOf teat ,  20, 

HULL  )j 

ItManageChildC  anbfora  ) ; 

> 

XtManagaChild(  control  ) ; 

//  aat  np  tho  action  araa  of  the  dialog 

Widget  action  *  ItVaCreateWidget (  "action",  zaFornWidgatClaaa,  pane, 
XaHfractionBaaa,  7, 

HULL  ); 

Widget  ok  >  XtVaCraateManagedWidget(  "OX", 
znPnahBnttonWidgatClaaa,  action, 

XaHtopAttnchaant,  XaATTACH.FORM, 

ImHbottomAttachmant ,  InATTACH. FORM, 

XaHlaft Attachnant,  XaATTACH.POSITIOH, 

XnHlaf tPoaition,  1, 

XnHright Attachnant,  XaATTACH.POSITIOH, 

XaHrightPoaition,  2, 

XaHahovAaDaf anlt ,  True, 

XnHdefaultButtonShadovThickneaa,  1, 

HULL  ); 

XtAddCallback(  ok,  XaHactivataCallback , 

try.creata_acenario.cb,  "craata.acanario"  ) ; 

Widget  cancel  -  XtVaCreateManagedWidget (  "Cancel", 
znPnahBnttonWidgatClaaa,  action, 

XaHtopAttnchaant,  XaATTACH.FORM, 

XaHbottoaAttachaant ,  XaATTACH.FORM, 

XnHlaf tAttachaant ,  XaATTACH.POSITIOH , 

XnHlaf tPoaition,  3, 

XnHright Attachnant ,  XaATTACH.POSITIOH, 

XaHrightPoaition,  4, 

XaBdaf anltBnttonShadovThicknaaa ,  1 , 
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HULL  ); 

XtAddCallbackC  cancel ,  XaJact  i  vat  eCall  back, 
take.down.nsned. cb ,  "create. scenario"  }; 

Widget  help  »  XtVaCreateManagedWidgetC  "Help", 
xnPushButtonWidgetClaas ,  action, 

XnHtopAttachnent ,  XnATTACH.FORM , 

InlbottonAttachaent ,  XnATTACH.FORM, 

XnHleft  Attachnent ,  XnATTACH.POSmOM , 

XnHleftPosition,  6, 

XnMrightAttachnant ,  InATTACH. POSITION , 

XadlrlghtPoaition,  6, 

XnHdefaultButtonShadosThickness ,  1 , 

ROLL  ); 

XtSetSensitiveC  help.  False  ); 

Xt HanageChi Id (  action  ) ; 

XtManageChild(  pane  ) ; 

} 

ItManageChi Id (  create. scenario.dialog  )  ; 

It Popup (  create. scenario.dialog ,  XtGrabHone  ); 

break; 

case  1:  //  user  selected  "Clear  Scenario...” 

if  (  ! si*. configure. clear (  elapsed .time  )  )  { 

//  failed 

generic. aak.uaer(  InDI ALOG.ERROR , 

"Can’t  clear  the  Model’s  scenario",  "OK”,  HULL,  YES  ); 

> 

else  { 

//  succeeded 

update .nodal. mag (  TRUE  )  ; 

log.printC  "Scenario  cleared  in  X7.3f  seconds \n",  elapsed. tiate  ); 

sprintfC  buffer,  "Scenario  cleared  in  X7.3f  seconds",  elapsed. tiaw  ); 

generic_ask_uaer(  XnDI ALOG.IHFORHATIOH ,  buffer,  "OK”,  HULL,  YES  >; 

} 

break; 

default : 

fprintf  (  stderr,  "ERRORCnenu.configure.cb]  iacpossible  aenu  choiceW  ); 

exit(  1  ); 

break; 

> 

} 

////////////////////////////////////////////////////////////////////// 

void  menu_execute_cb(  Widget  w,  XtPointer  closure,  XtPointer  call. data  ) 

int  iten.no  *  (int) closure; 

static  Widget  slice.dialog  »  HULL; 

static  Widget  ratio.dialog  ■  HULL; 

static  Widget  run.until. dialog  «  HULL; 

ssitch  (  iten.no  )  { 

case  0:  //  user  selected  "Set  Tine  Slice..." 

if  (  ! slice.dialog  )  { 

Arg  args [3] ; 

XnString  text  -  XnStringCreateSimple(  SLICE.DIALOG.KSG  ); 

XtSetArg(  args[0],  XnHselectionLabelStr ing ,  text  ); 

ItSetArgC  arga[l] ,  XnHautoUnnanage ,  False  >; 

XtSetArg(  args [2] ,  XnHnoResize,  True  ); 

slice.dialog  ■  XnCreateProaptDialogC  get.top.shelK  »  ),  "slice”, 
■rgs,  3  ); 

XnStringFreeC  text  ) ; 

I tVaSet Values (  ItParantC  slice.dialog  ), 

XtHtitle,  "Set  Tine  Slice", 

HULL  ); 
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XtSatSansiti*a( 

XaSalactionBoxOntChildC  slicn.dialog,  Xb0I11.00.IBLP .BUTTON  ).  Ftlw  ); 
ItAddCallbackC  «lic«. dialog,  IsdlokCallback,  try.sat.tiaa.slica.cb,  NULL  ); 
It IddCal lback C  allc*. dialog,  ImNcancslCallbnck ,  taka.dovn.cb ,  NULL  ); 

} 

XtManagaChildC  alica. dialog  ) ; 

Xt Popup C  XtParant C  alica .dialog  ),  ItGrabiona  ); 
braak ; 

caaa  1:  //  uaar  aalactad  "Sat  Tima  katio . . . " 
if  (  ! ratio. dialog  )  { 

Arg  arga [3] ; 

XaString  taxt  ■  XaStringCraataSinplaC  RATI0.DIAL0G.M3G  >; 

ItSatirg(  arga [0] ,  XaNsalactionLabalString,  tart  ); 

XtSatArg(  arga[l],  XaNautoUnaanaga ,  Falsa  ); 

XtSatirgC  arga [23,  XaNnohasiza,  Trua  ); 

ratio.dialog  >  XaCr aat aPr oaptD ialog (  gat.top.abalK  b  ),  "ratio", 
arga,  3  ); 

IaStr ingFraa  (  tazt  ); 

It VaSat Valuas (  XtParant C  ratio.dialog  ), 

XtNtitla ,  "Sat  Tiaa  Ratio", 

NULL  ); 

ItSatSansitivaC 

XaSalactionBozGatChildC  ratio.dialog,  XaDIALOG.HELP. BUTTON  ),  Falsa  ); 
XtAddCallback(  ratio.dialog,  XaUlokCallback,  tr7.sat.tiao.rati0.cb,  NULL  ) ; 
ItAddCallback(  ratio.dialog,  ImNcancalCallback ,  taka.dovn.cb,  NULL  ); 

> 

ItManagaChi Id (  ratio.dialog  ); 

X t Popup (  XtParant (  ratio.dialog  ),  XtGrabNona  ); 
braak; 

caso  2;  //  usar  solactad  "Ron" 

//  pot  op  tha  running  dialog 
//  sat  tha  cancal  button  to  "Stop" 

XaString  stop  “  XaStringCraataSiapla(  "Stop”  ); 

It VaSat Valuas (  ronning.dialog  ,  XaNcancalLabolString,  stop,  NULL  ); 

ImS tr ingFraa (  stop  ) ; 

//  sat  op  tha  vork  procadora 

XtWorkProcId  eork.id  •  XtAppAddWorkProcC  app,  ron.vork.proc , 
(XtPointar)running. dialog  ) ; 

It VaSat Valuas (  ronning.dialog,  XaNosarData,  vork. id,  NULL  ); 

//  osa  cancal  button  to  stop  run  ("Trua"  naans  to  raaova  tha  vork  proc) 
XtAddCallbackC  ronning.dialog,  ImNcancalCallback ,  dona. running. cb , 
(XtPointar)Troa  ); 

XtKanagaChildC  ronning.dialog  ) ; 

X t Popup (  XtParant (  ronning.dialog  ),  XtGrabNona  ); 

//  sat  tha  last  run  tiaa  to  tha  currant  tiaa 
last. run. clock. tiaa  *  gat .clock. tiaa (  ) ; 
braak; 

casa  3;  //  osar  aalactad  "Ron  Until...” 
if  (  ! run. until. dialog  )  { 

Arg  args[3] ; 

XaString  tazt  *  XaStriagCraataSinpla{  RUN_UNTIL.DIALOG.MSG  ); 

XtSatirgC  argsCO] ,  XaNaalactionLabalString,  tazt  ); 

I t Sat Arg (  argsCl],  XaNaotoUnaanaga,  Falsa  ); 

XtSatirgC  argsC2],  XaNnoRasiza,  Trua  ); 

ron.until. dialog  «  XaCraataProaptDialog(  gat.top.shalK  v  )  ,  "run.until” , 
args.  3  ); 

XmStringFraaC  tazt  ); 

Xt  VaSat  Valuas  C  XtParant  (  ron.ontil.dialog  ) , 

XtNtitla,  "Ron  Until", 
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MULL  ); 

XtSetSenaitive(  XmSelactionBoxGetChild(  run.until.dialog, 
XaDIALOG.HELP.BUTTOM  ) ,  Fall*  ) ; 

XtAddCallbeck(  run.until.dialog,  XmHokCallback,  tr7.ran.0stil.cb,  MULL  ); 
XtlddCallbackC  ran. until. dialog,  XmHcancelCallback,  taka.dosn.cb,  MULL  ); 

> 

XtHanageChildC  run, until .dialog  )  ; 

I t Popup (  XtParant(  run.until.dialog  ),  XtGrabMona  ); 
braak; 

dafault : 

fprintf(  atdarr,  " ERROR [menu. execute. cb]  impossible  nano  ehoice\n"  ); 

azit(  1  ); 

braak; 

} 

> 

///////////////////////////✓////////////////////////////////////////// 

void  menu.file.ebC  Widget  a,  XtPointar  closure ,  XtPointer  call. data  > 

< 

int  itan.no  ■  (int)closure; 
static  Widgat  connect .dialog  »  MULL; 
static  Widgat  nas.modal.dialog  »  MULL; 
static  Widgat  open.model.dialog  •  MULL; 
static  Widgat  sava.as.dialog  »  MULL; 

stritch  (  itan.no  )  ■{ 
casa  0:  //  osar  selected  "Connect..." 
if  (  ! connect .dialog  )  { 

Arg  args [3] ; 

XmString  text  *  XnStr ingCreateSimple  (  COHHECT.DIALOG.MSG  ); 

XtSetArgC  args CO],  XnMselectionLabelString,  text  ); 

XtSetArgC  args [1],  XmMautoUnnanage ,  False  ); 

XtSetArgC  args [2],  XnHnoResize,  True  ); 

connect. dialog  »  XmCreatePromptDialogC  get .top. shell (  a  ) ,  "connect” , 
args,  3  ); 

ImStringFreeC  text  ) ; 

Xt VaSet Values (  XtParentC  connect .dialog  ), 

XtNtitle,  "Connect", 

HULL  ); 

Xt Set Sensitive ( 

XmSelectionBoxGetChildC  connect. dialog,  XaDIALOG.HELP.BUTTOM  ),  False  ); 
XtAddCallbackC  connect. dialog,  XmHokCallback,  t ry. connect _cb,  HULL  ); 
XtAddCallback(  connect .dialog,  XnHcancelCallback,  take.doan.cb,  MULL  ); 

> 

XtHanageChildC  connect .dialog  )  ; 

I t Popup (  ItParant (  connect. dialog  ),  XtGrabMona  ); 
break; 

case  1:  //  user  selected  "Disconnect" 

//  attenpt  to  disconnect  from  the  database 
if  (  !sim_db.disconnect(  )  )  { 

//  failed 

goneric.ask.userC  XmDIALOG.ERROR, 

"Can't  disconnect  from  the  database",  "OK",  HULL,  TES  ); 

> 

else  { 

//  succeeded 

update.model.msgC  FALSE  ) ; 

log_print(  "Successful  disconnect  from  databaseVn"  ); 

//  Set  parts  of  the  the  "File"  menu  sensitive  and  parts  insensitive 
Widget  a.menu; 

if  (  a.menu  •  XtHameToWidget(  topleval,  //  Connect... 

"main. vindos , menu.bar . popup.f ile.menu . f ile.menu . button.O"  )  ) 
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ItSetSensitiveC  a. menu,  True  ); 
it  (  a.aanu  *  XtNaaeToHidget (  toplaval,  //  Diaconnact 

"main, window . aanu.bar . popup. file .menu . file. menu. but ton. 1"  )  ) 
ItSetSensltivsC  a.aanu,  Falsa  ); 
if  (  a.aann  «  ItMaaeToUidgetC  toplaval,  //  Mas  Modal... 

"main. window . nenu_ber.popup.fi le.nenu  . file,  menu .bntton.2"  )  ) 
XtSatSansitivaC  a.aann,  Falsa  ); 
if  (  a.aann  »  XtNaaeToHidget (  toplaval,  //  Opan  Modal... 

"main. window . aanu.bar . popup. fi la. nann .f ila.asnu . but ton. 3"  )  ) 
XtSatSansitivaC  a.aann.  Falsa  ); 
if  (  a.aann  ■  XtNameToWidget (  toplaval,  //  Closa 

"main. window . aanu.bar . popnp.f ila.aanu . f ila.aanu . but ton.4"  )  ) 
XtSatSansitivaC  a.aann.  Falsa  ); 
if  C  a.aann  *  XtNameToWidget C  toplaval,  //  Sava  As... 

"main. window . mann.bar. popup.f ile.menu.f ile.menu.button.5"  )  ) 
XtSatSansitivaC  a.aann.  Falsa  ); 

//  Sot  tha  antira  "Configure"  menu  insensitive 

if  C  a.aann  *  XtNamaToWidgatC  toplaval,  "aain.sindos.aann.bar.bntton.l”  )  ) 
XtSatSansitivaC  a.aanu.  Falsa  ) ; 

//  Sot  tha  antira  "Execute"  aann  insensitive 

if  C  a.aanu  *  XtNamoToWidgetC  toplaval,  "aain.window . aanu.bar . bntton_2"  >  ) 
XtSatSansitivaC  a.oanu ,  Falsa  ); 

//  Sat  tha  antira  "Post  Process"  aanu  insensitive 

if  C  a.aanu  ”  XtNaaeToWidget C  toplaval,  "main. window . mann.bar . button_3"  )  ) 
XtSatSansitivaC  a.aanu.  Falsa  ); 

> 

break; 

case  2 ;  //  nsar  selected  "Haw  Modal ..." 

if  (  ! new. model. dialog  )  < 

Arg  args [3] ; 

XaString  text  •  XmStr ingCreateSimpla (  "Enter  new  nodal  name:"  ); 

XtSetArgC  args[0],  XmHselectionLabelString,  text  ); 

XtSatArgC  args Cl],  XnHautoUnmanage ,  False  ); 

XtSetArgC  args [2],  XmKnoKasize,  True  ); 

new.model. dialog  »  XmCraataPromptDialogC  get.top.shellC  w  )  , 

"new .modal" ,  args ,  3  ) ; 

XmStr ingFrae C  text  ) ; 

XtVaSet Values C  It Par ant C  nas.oodel.dialog  ), 

XtNtitla ,  "Haw  Modal", 

NULL  ); 

XtSatSansitivaC  XmSalactionBoxGatChildC  new.modal.dialog, 

XmOlALOG. HELP. BUTTON  )  ,  Falsa  ) ; 

XtAddCallbackC  new.modal.dialog,  XmNokCallback,  try.naw.model.cb,  NULL  ); 
XtAddCallbackC  new.modal.dialog,  XmNcancelCallbaek ,  take. down  cb,  NULL  ) -, 

> 

XtManageChildC  new.modal.dialog  ) ; 

XtPopnpC  XtParantC  new.modal.dialog  ),  XtCrabNone  ); 

break; 

case  3;  //  nsar  selected  "Opan  Model..." 

if  C  ! opan.modal.dialog  )  { 

Arg  args [4] ; 

XaString  text  ■  XmStr ingCreateSimpla C  "Existing  Models"  ); 

XtSatArgC  args[0],  XmMlistLabelString,  text  ); 

XtSatArgC  args Cl],  XaNautoUnaanage ,  Falsa  ); 

XtSatArgC  argsC2],  XaNanstMatch ,  True  ); 

XtSetArgC  argsC3],  XmNnoRasiza,  True  ); 

opan.modal.dialog  m  XmCraateSalactionDialogC  get.top.shellC  w  ) , 

"open. modal" ,  args,  4  ); 

XaStr ingFrae C  text  ); 
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Xt  VaSat  Values  (  XtParentC  open.model. dialog  ), 

ItNtitle,  "Opan  Modal”, 

MULL  ); 

XtSat3an»iti»a(  ImSelectionBoxGetChildC  opan.modal.dialog , 

XmDIALOG. HELP. BUTTON  )  ,  Falaa  ) ; 

XtUimanageChildC  XmSelectionBoxGetChildC  opan.modal.dialog, 

XmDIALOG. APPLT.BUTTON  )  ); 

Xt AddCallback (  opan.modal.dialog,  XmNokCallback ,  try .opan. .modal. cb ,  MOLL  ); 
Xt AddCallback (  opan.modal.dialog,  XmHcancalCallbaek ,  take.down.cb,  MOLL  ); 

} 

char  »»modala ; 
int  • iza; 

if  (  ! aim.modal.list .of. existing (  kmodals,  size  )  )  { 
goner ic.ask.userC  XmDI ALOG.ERROR , 

"Can’t  datarmina  shat  models  exist", 

"OK".  MOLL,  TES  ); 

> 

else  < 

if  (  size  ma  o  )  { 

goner i c. ask. user (  XmDIALOG.IMFORMATIOM, 

"No  models  currently  exist”, 

"OK”,  MOLL,  TES  ); 

> 

also  { 

XmString  •items  *  (XoString*)XtMalloc(  size  •  sizeofC  XmString  )  ); 
for  (  int  i  ■  0;  i  <  size  ;  i++  ) 

items [i]  •  XmStr ingCraataSimple (  models [i]  ); 

Xt VaSat Values (  opan.modal.dialog, 

XmNlist Items,  items, 

XmNlistltamCount,  size, 

HULL  )j 

while  (  — i  >a  o  ) 

XmStringPrea (  items [i]  );  //  free  element s  of  the  array 

XtFraa(  (char  •) items  );  //  now  free  tha  array  pointer 

XtManageChild(  opan.modal.dialog  ) ; 

Xt Popup (  ItParent(  opan.modal.dialog  ),  XtGrabNone  ); 

> 

} 

break; 

case  4:  //  user  selected  "Close” 

//  attempt  to  close  the  current  model 
if  (  isim.model. close (  )  )  { 

//  failed 

generic_ask_user(  XmDIALOG.ERROR, 

"Can’t  close  the  current  model",  "OK",  NULL,  TES  ); 

> 

else  { 

II  succeeded 

update.model.msg(  FALSE  ) ; 

l°g-Print (  "Current  model  closed\n”  ); 

//  Set  parts  of  the  the  "File”  menu  sensitive  and  parts  insensitive 
Widget  a.menu; 

if  (  a.menu  •  XtNameToWidget(  toplevel,  //  New  Model... 

"main.windos.menu.bar.popup.file.menu.file.menu.button.2"  )  ) 
XtSetSansitiveC  a.menu,  True  ); 
if  (  a.menu  “  ItNameToWidgetC  toplevel,  //  Open  Model... 

"main. window .menu.bar . popup. file.menu . f ile.menu . button. 3"  )  ) 
XtSetSansitiveC  a.menu.  True  ); 
if  (  a.menu  »  ItNameToWidgetC  toplevel,  //  Close 

"main.window. menu.bar. popup.f ile.menu . file.menu. button.4”  )  ) 
XtSetSansitiveC  a.menu.  False  ) ; 
if  (  a.menu  •  XtMameToWidgetC  toplevel,  //  Save  As... 
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"Min.aindos.muiu.bar ,popup_file.menu.f ile.manu.button.S"  )  ) 
XtSatSansitivaC  a.manu.  Falsa  ); 

//  Sat  the  antira  "Configure"  manu  insensitive 

if  (  a.manu  *  XtHameToWidgat (  toplevel,  "siain. window. manu. bar .bntton.l"  )  ) 
XtSetSensitiveC  a.manu.  Falsa  ); 

//  Sat  tha  antira  "Exacuta"  manu  insensitive 

if  (  a.manu  «  XtHameToWidgat (  toplaval,  "main. window. menu.bar. button. 2"  )  ) 
XtSatSansitivaC  a.manu,  Falsa  ); 

//  Sat  tha  antira  "Post  Procsss"  manu  insansitive 

if  (  a.manu  ■  XtHameToWidgat (  toplaval,  "main.vindow . manu.bar . button.3"  )  ) 
XtSatSansitivaC  a.manu,  Falsa  ); 

> 

braak; 

casa  6 :  //  usar  salactad  "Sava  As " 
if  C  ! save.as.dialog  )  { 
lrg  args[3] ; 

XmString  taxt  »  XmStringCraateSimplaC  "Enter  modal  name  to  save  as:"  ); 
XtSetArgC  args[0],  XmHselectionLabelString,  text  >; 

XtSetArgC  argsCl] ,  XmH auto Unmanage ,  Falsa  ); 

XtSetArgC  args [2] ,  XmHnoResize,  True  ); 

save.as.dialog  »  XmCreatePromptDialogC  gat.top.shallC  w  ) , 

"sava.as",  args,  3  ); 

XmStringFreeC  taxt  ) ; 

XtVaSatValuas C  XtParentC  save.as.dialog  ), 

XtHtltle,  "Save  As", 

HULL  ); 

XtSatSansitivaC  XmSelactionBoxGetChildC  save.as.dialog, 
XmOIALOG.HELP.BUTTON  )  ,  Falsa  ) ; 

ItAddCallbackC  save.as.dialog,  XmNokCallback ,  try_sava.as.cb,  HULL  ); 
XtAddCallbackC  save.as.dialog,  XmHcancalCallback,  taka.doan.cb,  HULL  >; 

> 

XtHanageChildC  save.as.dialog  ) ; 

XtPopupC  XtParentC  save.as.dialog  ),  XtGrabNone  ); 
break; 

casa  6:  //  user  selected  "Exit" 

//  perform  any  required  database  cleanup  then  exit 
if  C  isim.db.disconnectC  )  )  < 

//  failed 

genaric.ask.userC  ImOIALOG. ERROR , 

"Can’t  exit  program:  the  disconnect  from  the  database  failed", 

"OK",  HULL.  YES  ); 

> 

else 

exitC  1  ) ; 
break; 

default : 

fprintfC  stderr,  "ERRORCmenu.file.cb]  impossible  menu  ehoice\n"  ); 

exitC  1  ); 

break; 

> 

> 

iiiiiiiiiiiiiiiiiiiiiiiiiiiimiiimiiiiiiiiimiiiiiiiiimiiiiimi 

void  manu.help.cbC  Widget  v,  XtPointer  closure,  XtPointer  call.data  ) 

i 

static  Widgat  about .dialog  »  HULL; 
int  itam.no  ■  Cint) closure; 

XmString  text; 
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•sitch  (  itao.no  )  { 

casa  0:  //  user  selected  "About  SioBaneh..." 
if  (  ! about .dialog  )  { 

Arg  arga[l] ; 

XtSetArg(  argaCO],  XmHnoResize,  True  ); 

about.dialog  *  XnCr aat a Inf ormat i onD i alog (  get.top.shellC  u  >,  "about", 
arga,  1  ); 

ItVaSetValuaa(  XtParent(  about.dialog  ), 

XtNtitla,  "About  SioBaneh”, 

HULL  ); 

It Set Sanait i va ( 

XmMessageBoxGetChild(  about.dialog,  IoDIALOG. HELP. BUTTON  ),  Falsa  ); 
XtUnmanagaChi Id ( 

XoMaaaaga8oxGatChild(  about.dialog,  XoDIALOG.CANCEL.BUTTON  )  ); 

> 

text  >  XmStringCreateLtoRC  get.about.messageC  ),  XmSTRING. DEFAULT. CHARSET  ); 
XtVaSatValuaa (  about.dialog, 
loNoessageString,  text, 

HULL  ); 

IoStringFrae<  taxt  )  -, 

XtManageChildC  about.dialog  ) ; 

XtPopup(  XtParent(  about.dialog  ),  XtGrabHona  ); 
break; 

default : 

fprintfC  atderr,  "ERROR [menu.help.cb]  impossible  menu  choice\n"  ); 

exit(  1  ) ; 

break; 

} 

> 

////////////////////////////////////////////////////////////////////// 

void  menu_post_cb(  Hidgat  e,  XtPointer  closure,  XtPointer  call.data  ) 

i 

char  buffer ClOO] ; 

int  item.no  »  (int)closure; 

double  elapsed.tioa; 

switch  (  iteo.no  )  { 
case  0 ;  //  user  selected  "View  Hap ..." 
if  (  ! map.dialog  >  { 

//  create  the  map  dialog  the  first  time  this  menu  choice  is  selected 
create.map_dialog(  ) ; 

> 

updat e.map. dialog (  )  ; 

XtHanagaChildC  map.dialog  ) ; 

I t Popup (  map.dialog,  XtGrabNone  ); 
break; 

ease  1;  //  user  selected  "Generate  Report" 
if  (  !sim.report(  elapsed.time  )  )  { 

//  failed 

generic. ask.user(  X mDIALOG. ERROR, 

"Generation  of  report  failed" ,  "OK" ,  HULL ,  YES  ) ; 

> 

else  { 

//  succeeded 

log-print (  "Report  generated  in  X7 . 3f  seconds\n",  elapsed.time  ); 
sprintf (  buffer, 

"Report  generated  in  X7.3f  seconds  (to  file  V'SIH.REPORTV’)”, 
elapsed.time  ) ; 

gener ic. ask. user (  XmDIALOG.IHFORMATIOH,  buffer,  "OK",  HULL,  YES  ); 

} 

break; 
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default : 

lprintf(  stderr ,  " ERROR [menu.help.cb]  impossible  menu  choice\n"  ); 

•xit(  1  ); 
break ; 

> 

> 

////////////////////////////////////////////////////////////////////// 

void  take.down.cbC  Widget  i,  XtPointar  closure,  XtPointer  call.data  ) 

{ 

XtPopdownC  XtPareut (  w  )  ) ; 

XSyncC  XtDisplayC  u  )  ,  0  )  ; 

XmUpdateDi splay (  get .top. shell (  u  )  ) ; 

> 

////////////////////////////////////////////////////////////////////// 

void  take.down.named.cbC  Widget  w,  XtPointer  closure,  XtPointer  call.data  ) 

{ 

Widget  dialog; 

char  *dialog_name  *  (char*) closure ; 

if  (  dialog  *  XtHameToUidget (  toplevel,  dialog. name  )  )  { 

XtPopdownC  dialog  ) ; 

XSync(  XtDisplay (  dialog  ) ,  0  ) ; 

XmUpdateDisplay (  get.top.shelK  w  )  ) ; 

> 

> 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiniiiiiiiiiii 

void  try_connect.cb(  Widget  v ,  ItPointer  closure,  XtPointer  call.data  ) 

■C 

XmSelectionBoxCallbackStruct  *cbs  ■  (XmSelectionBoxCallbackStruct*)call_data 
char  *db_name; 

if  (  'XmStringGetLtoRC  cbs-> value,  ImSTRING.DEFAULT.CHiRSET ,  kdb.name  )  )  { 
fprintf(  stderr,  "ERROR [try.connect.cb]  ImStringGetLtoR  failed\n"  ); 
exit(  1  ) ; 

> 

//  attempt  to  connect  to  the  database 
if  (  isim.db. connect (  db.name  )  )  { 

//  failed 

generic_ask.user(  ImDIALOG. ERROR, 

"Can’t  connect  to  the  database  you  have  specified", 

"OK",  NULL,  TES  ); 

> 

else  { 

//  succeeded 

XtPopdown(  XtParent (  w  )  ) ; 

XSync(  XtDlsplayC  v  ),  0  ); 

XmUpdateDisplay  (  get.top.shelK  w  )  ); 

log_print(  "Successful  connect  to  database  V'Xs\"\n",  db.name  ); 

//  Set  parts  of  the  the  "File"  menu  sensitive  and  parts  insensitive 
Widget  a.menu; 

if  (  a.menu  »  XtNameToWidgetC  toplevel,  //  Connect. .  . 

"main. window . menu. bar. popup.file_menu.file.menu. button. 0”  )  ) 
XtSetSensitiveC  a.menu,  False  ); 
if  (  a.menu  *  XtNameToWidgetC  toplevel,  //  Disconnect 

"main.window.menu.bar . popup.file.menu. file. menu. button. 1"  )  ) 
XtSetSensitiveC  a_menu.  True  ); 
if  (  a.menu  *  XtNameToWidgetC  toplevel,  //  New  Model... 

"main.window. menu.bar. popup.file.menu. file. menu. button.2”  )  ) 
XtSetSensitiveC  a.menu.  True  ); 
if  (  a.menu  “  XtNameToWidgetC  toplevel,  //  Open  Model... 

"main_vindov. menu.bar. popup.file_menu.file.menu.button.3"  )  ) 
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XtSetSensitive(  a.manu,  True  ); 

} 

XtFree(  db.name  ) ; 

> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

void  try_craate.scenario.cb(  Widget  a ,  XtPointor  cloaaro,  XtPointar  call.date  ) 

i 

char  buffar [100] j 

Widget  dialog,  taxt.O,  taxt.l,  text. 2; 

//  got  tba  values  of  tha  tbraa  taxt  eidgete 
if  (  ! C  taxt.O  ■  XtNameToWidget(  toplaval, 

"craata.acanario.pana. control. aubform. taxt.O"  )  )  )  { 

f print! (  atdorr,  "ERROR [try. craata. scenario. cb]  unabla  to  find  text.O\n"  >; 
axit(  1  ) ; 

> 

if  (  !(  taxt.l  ■  XtHameToWidgetC  toplaval, 

"create.scenario. pane. control. subforn. taxt.l"  )  )  )  { 

f print! (  atdarr,  "ERROR[try_create_scenario_eb]  unable  to  find  text_l\n"  ); 
axit(  1  ) ; 

> 

if  (  !(  taxt .2  ■  ItHamoToUidgot (  toplaval, 

"create.acenario. pane. control. aubform. text_2"  )  )  >  { 

f printf (  atdarr,  "ERROR[try_create_acenario.eb]  unabla  to  find  taxt.2\n"  ); 
exit(  1  ); 

} 

//  try  to  got  the  numbers  input  by  the  naer 

char  «num_air craft .char  ■  XmTextGetString(  taxt.O  ) ; 

int  nuin. aircraft  *  atci(  num.aircraft.char  ); 

XtFrea(  num.aircraft.char  ) ; 

char  •num.trucka.char  -  XmTextGetString(  taxt.l  ) ; 
int  num_trucka  a  atoi(  num.trucka.char  ); 

XtFreeC  num.trucka.char  ) ; 

char  •boxboard.aize.char  ”  XmTextGatString(  toxt_2  ) ; 
int  haxboard.aizo  a  atoi(  hexboard.siza.char  ); 

ItFreeC  hexboard.siza.char  ) ; 

//  check  that  the  values  are  valid 

//  (if  any  of  the  values  are  zero  tha  input  is  invalid) 
if  (  (  num.aircraft  <  1  ) 1 1 (  num.aircraft  >  100000  ) 1 1 
(  num. trucks  <  1  ) 1 1 (  num.trucks  >  100000  ) 1 1 
(  hexboard.size  <  1  ) 1 1 (  hexboard.size  >  10000  )  )  { 

//  failed  -  invalid  input 
generic.ask_user(  ImDIALOG. ERROR , 

"The  values  you  have  specified  are  invalid", 

"OK”,  HULL,  TES  ); 

} 

else  < 

double  elapsed.time ; 

if  (  !sim_configure_create(  num.aircraft,  num.trucks,  hexboard.size, 
elapsed.time  )  )  < 

II  failed  -  database  problem 
generic_ask.user(  ImDIALOG.ERROR, 

"Unable  to  create  the  scenario  in  the  database", 

"OK",  NULL,  TES  ); 

> 

else  { 

//  succeeded 

update.model.msg(  TRUE  ) ; 

log.printC  "Scenario  created  in  %7.3f  seconds \n",  elapsed.time  ); 
sprintf<  buffar,  "Scenario  created  in  %7.3f  seconds",  elapsed.time  ); 
generic_ask_user(  ImDIALOG. INFORMATION,  buffer, 

"OK",  NULL,  TES  ); 
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//  popdown  the  craata  acanario  dialog 

it  (  dialog  »  XtNameToWidgat (  toplaval,  " craata .acanario"  )  )  { 

XtPopdosnC  dialog  ) ; 

XSyncC  XtDisplayC  dialog  ),  0  ); 

XmUpdateDisplay (  get .top. shell C  «  )  ); 

> 

} 

> 

} 

////////////////////////////////////////////////////////////////////// 

void  try.nes.aodel.cbC  Widget  a,  XtPointer  cloaura,  XtPointer  call.data  ) 

< 

XmSelectionBoxCallbackStruct  *cba  ■  ClmSelect ionBoxCallbackStruct* ) call.data ; 
char  ‘model .name; 
doubla  elapsed. time ; 

if  (  ! XmStringGetLtoRC  cba-> value,  XmSTRING. DEFAULT. CHARSET ,  taodel.name  )  )  { 
fprintfC  atdarr,  "ERROR [try _naw.modal.cb]  ImStringGetLtoR  failedXn"  ); 
axit(  1  ) ; 


//  attaapt  to  create  a  new  nodal 

if  (  ! »im_model_nev(  modal.nana,  elapaad.time  )  )  { 

//  failed 

genaric.aak.naar (  ImDIALOG. ERROR, 

"Can’t  craata  tha  modal  you  have  specified", 

"OK",  ROLL,  TES  ); 

> 

alae  < 

//  succeeded 

update.model.msgC  TRUE  ) ; 

log_print(  "Model  V'XsV  created  in  X7 ,3f  secondsNn” , 
modal. name,  elapsed. time  ); 

XtPopdoun(  XtParent (  v  )  ); 

XSyncC  XtDisplay(  w  ) ,  0  ) ; 

XmUpdataDiaplay(  get.top.shellC  w  )  ) ; 

//  Set  parts  of  the  the  "File”  menu  sensitive  and  parts  insensitive 

Uidgat  a.menu; 

if  (  a.menu  ■  XtNamaToWidget (  toplevel,  //  Hav  Model... 

"main_uindos.menu_bar.popup_file_menu.fila_menu.button.2"  )  ) 
XtSetSensitiveC  a.menu.  False  ); 

if  (  a.menu  “  XtNamaToWidget (  toplevel,  //  Open  Model... 

"main.window .menu.bar .popup.f ile.menu . file. menu .button.3"  )  ) 
XtSetSensitiveC  a.menu,  False  ); 

if  (  a.menu  ”  XtNamaToWidget (  toplevel,  //  Close 

"main_sindov.menu.bar .popup.f ile.menu. file. menu. button.4"  )  ) 
XtSetSensitiveC  a.menu,  True  ); 

if  C  a.menu  *  XtNameToWidgetC  toplevel,  //  Save  is... 

"main.window. menu.bar. popup.file.menu.fila.menu.button.S"  )  ) 
XtSetSensitiveC  a.menu.  True  ); 

//  Set  the  entire  "Configure”  menu  sensitive 

if  C  a.menu  ■  XtNameToWidgetC  toplevel,  "main.sindos. menu.bar . button. 1”  )  ) 
XtSetSensitiveC  a.menu,  True  ); 

//  Set  the  entire  "Execute"  menu  sensitive 

if  C  a.menu  «  XtNameToWidgetC  toplevel,  "main.sindos . menu.bar . button.2"  )  ) 
XtSetSensitiveC  a.menu.  True  ); 

//  Set  the  entire  "Post  Process"  menu  sensitive 

if  C  a.menu  «  XtNameToWidgetC  toplevel,  "main_sindos. menu.bar .button.3”  )  ) 
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XtSetSensitiveC  i.mhu,  Tru  ); 


> 

XtFreeC  nodal. nan*  ); 

} 

////////////////////////////////////////////////////////////////////// 

void  try_open_»odel_cb(  Widget  w,  XtPointor  closure,  XtPointor  call. data  ) 

i 

XmSelectionBoxCallbackStruct  *cbs  *  (ImSelectionBozCallbeckStructOcall.date; 

char  ‘model .name; 

double  elapsed. tine; 

11  (  ! XmStr ingGetLtoRC  cba->value ,  XmSTRIBG.DEFAULT.CHARSET ,  kmodel.name  )  )  { 
IprintK  stderr,  "ERROR [try _open.nodel.cb]  XmStringGetLtoR  failedVn"  ); 
ezlt(  1  ); 

//  attempt  to  open  the  specified  model 

if  (  !sim_model.open(  model. name ,  elapsed. time  )  )  ■( 

//  failed 

generic.ask.userC  XmDIALOG.ERROR , 

"Can't  open  the  model  you  have  specified", 

"OK",  BULL,  TES  ); 

} 

else  { 

//  succeeded 

update .model. msg(  TRUE  ) ; 

log.print (  "Model  \"Xs\"  opened  in  X7.31  seconds\n" , 
model. name,  elapsed. time  ); 

ItPopdosnC  XtParent(  e  )  ) ; 

ISync(  XtDisplay (  e  )  ,  0  )  ; 

XmUpdateDisplay  (  get.top.shelK  w  )  ) ; 

//  Set  parts  of  the  the  "File"  menu  sensitive  and  parts  insensitive 
Widget  a_menu; 

if  (  a. menu  •  XtNameToVidget (  toplevel ,  //  Nee  Model . . . 

"main. window. menu.bar. popup. file.menu.file.menu. button. 2"  )  ) 
XtSetSensitive(  a.menu,  False  ) ; 
if  (  a.menu  ■  XtNameToVidget (  toplevel,  //  Open  Model... 

"main.vindou . menu. bar . popup.! ile.monu . f ile.menu . button. 3"  )  ) 
XtSetSensitive(  a.menu,  False  ) ; 
if  (  a.menu  ■  XtNameToVidget (  toplevel,  //  Close 

"main.eindos.menu_bar.popup_file.menu.file.menu. button. 4"  >  ) 

XtSetSensit ive(  a.menu.  True  ); 
if  (  a.menu  «  XtNameToVidget (  toplevel,  //  Save  As... 

"main_sindos.menu.bar.popup_file_menu.file.menu.button.5"  )  ) 
XtSetSensitive(  a.menu.  True  ); 

//  Set  the  entire  "Configure"  menu  sensitive 

if  (  a.menu  *  XtNameToVidget (  toplevel,  "main.windoe.menu.bar .button.l"  )  ) 
XtSetSensitiveC  a.menu.  True  ); 

//  Set  the  entire  "Execute"  menu  sensitive 

if  (  a.menu  •  XtNameToVidget (  toplevel,  "main.eindoe.menu.bar .butt on. 2"  )  ) 
XtSetSensitiveC  a.menu,  True  ); 

//  Set  the  entire  "Post  Process"  menu  sensitive 

if  <  a.menu  »  XtNameToVidget C  toplevel,  "main.eindoe.menu.bar. button.3"  )  ) 
XtSetSensitiveC  a.menu,  True  ); 

} 

XtFreeC  model .name  ); 

} 

////////////////////////////////////////////////////////////////////// 

void  try.run_until.cbC  Widget  e,  XtPointor  closure,  XtPointor  call.data  ) 
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char  buffer [100] ; 

XaSelectionBoxCallbackStruct  *cb»  *  (ImSelectionBoxCallbackStructe) call.data ; 
int  current. sim.time; 
char  •goal.time.char ; 
int  goal.tiee; 

//  read  the  desired  goal  tine 

if  (  !  XmStringGetLtoR(  cbs->value,  XmSTRIMG.DBFAULT.CHARSET , 
kgoal.time.char  )  )  { 

fprintf  (  stderr,  "ERROR [try _run.until.cb]  XmStringGetLtoR  failed\n”  ); 
exit(  l  ); 

> 

goal. time  «  atoi(  goal. time. char  ); 

XtFreeC  goal .time. char  ) ; 

//  check  the  current  simulation  time  compaired  to  the  goal  time 
current. aim. time  »  sia.get. current .sim.timeC  )  ; 
if  (  goal .time  <■  current.sim.tima  )  { 

//  can’t  run  the  simulation  backwards 

sprintf(  buffer,  "Can’t  simulate  in  reverse  (at  simulation  til*'  Xd) " , 
current.sim.time  ) ; 

gener ic.ask.user (  XmDIALOG. ERROR ,  buffer  ,  ”0K”,  TOLL.  TES  ); 

> 

else  { 

//  set  up  to  perform  the  run  until 
run_until.goal.time  •  goal. time ; 

//  take  down  the  run  until  dialog 
ItPopdown(  XtParent (  w  )  )j 
XSync(  XtDisplay(  w  ) ,  0  ) ; 

XmUpdateDi splay (  get.top.shelK  w  )  ); 

//  put  up  the  running  dialog 
//  set  the  cancel  button  to  "Stop" 

ImString  stop  »  XmStringCreateSimple (  "Stop"  ) ; 

It VaSet Value* (  running.dialog  ,  XmMcancelLabelString,  stop,  HULL  ); 
XmStringFrea(  stop  ) ; 

//  set  up  the  work  procedure 

XtWorkProcId  work. id  «  XtApplddHorkProc (  app,  run_until.work.proc, 
(XtPointer)running_dialog  ) ; 

XtVaSetValuesC  running.dialog,  XmHuserData,  work.id,  HULL  ); 

//  use  cancel  button  to  stop  run  ("True"  means  to  remove  the  work  proc) 
XtAddCallback(  running.dialog,  XmHcaneelCallback,  done.running.cb, 
(XtPointer)True  ) ; 

ItManageChi Id (  running.dialog  ) ; 

I t Popup (  XtParent (  running.dialog  ),  XtGrabHone  ); 

//  start  the  timer  for  the  run  until 
global.'- iicer  •  new  stopwatch(  ); 
global_t.:aer~'<start(  ) ; 

} 

> 

////////////////////////////////////////////////////////////////////// 

void  try.save.as_cb(  Midget  w,  XtPointer  closure,  XtPointer  call. data  ) 

■C 

XmSelectionBoxCallbackStruct  *cbs  >  (XmSelectionBoxCallbackStructe)call.data; 
char  ‘model .name; 
double  elapsed. time; 

if  (  !  XmStr ingGetLtoR(  cbs->value,  ImSTRING.DEP AULT. CHARSET ,  taodel.name  )  )  { 
fprintf (  stderr,  "ERRORCtry.save_as.cb]  XmStringGetLtoR  failed\n"  ); 
exit(  i  ); 
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> 


//  attoapt  to  soto  tho  c arrant  nodal  ondor  "nodal. nano" 

if  <  ! aim.aodol.aaYo.aa (  nodal .nano,  olapaod.tlno  )  )  < 

//  failod 

ganaric.aak.uaarC  InDI ALOG.KkkOk , 

"Can't  im  tho  currant  nodal  a a  tha  nodal  yon  hava  apacifiad”, 

-ok",  moll,  TES  ); 

> 

alaa  { 

//  succaadad 

log.print(  "Currant  nodal  copiad  to  \MXaV  in  X7.3f  saconda\n”, 
nodal.nano,  alapaad.tine  ); 

Xt Popdovn (  XtParont (  w  )  ) ; 

XSync(  XtOiaplay(  a  ) .  0  ) ; 

XnOpdatoDiaplayC  gat.top.ahallC  a  )  ) ; 

//  Sat  parta  of  tha  tha  "Fila"  nana  aanaitiva  and  parta  inaanaitiva 
Uidgat  a.nanu; 

if  (  a.nana  •  XtManaToHidgat C  toplaval,  //  Mob  Modal... 

"nain. window . anna. bar .  popup. fila .nana . f ila.nnnn . but ton. 2"  )  ) 
XtSatSanaitlvaC  a.nana,  Falaa  ) ; 
if  (  a.nana  •  ItManaToHidgat (  toplaval,  //  Opan  Nodal... 

"nain.aindoa. nana_bar.popap_fila_nana.fila_iaana.bnttoa_3"  )  ) 
XtSatSansitiva(  a.nana,  Falaa  ) ; 
if  (  a.nana  »  XtRamaToUidgat (  toplaval,  //  Cloaa 

"nain.Bindoa . nanu.bar . popup.f ila.nanu . f ila.nana .batton.4”  )  ) 
XtSatSanaitlvaC  a.nana,  Traa  ); 
if  (  a.nana  ■  XtNanaToHidgat (  toplaval,  //  Sava  A§... 

"nain.aindoa . nanu.bar . popap.fila.nanu . f ila.nana . batton.6"  )  ) 
XtSatSanaitlvaC  a.nana,  Traa  ) ; 

//  Sat  tha  antira  "Configora"  nana  aanaitiva 

if  C  a.nana  "  XtManaToHidgat C  toplaval,  "nain. aindov . nanu.bar . button. 1 "  )  ) 
XtSatSanaitlvaC  a.nana,  Traa  ) ; 

//  Sat  tha  antira  "Exacuta"  nano  aanaitiva 

if  C  a.nana  "  XtManaToHidgat C  toplaval,  "nain.aindoa. nana.bar .button_2"  )  ) 
XtSatSanaitlvaC  a.nanu ,  Traa  ) ; 

//  Sat  tha  antira  "Poat  Procaaa”  nano  aanaitiva 

if  C  a.nana  *  XtManaToHidgat C  toplaval,  "stain. aindov . oana.bar . button.3"  )  ) 
XtSatSanaitlvaC  a.nana ,  Traa  ); 

} 

XtFraaC  nodal. nana  ); 

> 

////////////////////////////////////////////////////////////////////// 

void  try.aot.tina_ratio.cbC  Uidgat  a,  XtPointar  cloaura,  XtPointar  call.data  ) 

{ 

XnSalactionBoxCallbackStruct  *cba  •  CXnSalactionBozCallbackStmct*)call.data; 

char  •nav.tima.ratio.char ; 

donbla  nav.tina. ratio; 

if  C  !  XnStringGatLtoRC  cba->valua,  InSTRIHG. DEFAULT. CHiRSET , 

Anas. tina.ratio. char  )  )  { 

fprintf  C  atdarr,  "ERMR[try_aot_tino_ratio_cb]  XnStringGatLtoR  failad\n"  ); 
azitC  1  ); 

y 

naa.tisM.ratio  ■  atofC  nav.tina.ratio.char  ); 

XtFraaC  nav.tina.ratio.char  ) ; 

if  C  nav.tina.ratio  <»  0.0  )  { 

//  invalid  tina  ratio 
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gaaaric.aak_uaar(  XaDULOG.EMOk , 

"Tha  t  1m  ratio  you  havo  apocifiad  ia  invalid”, 

"OK",  ROLL,  YES  ); 

> 

alaa  < 

//  aat  tha  tiao  ratio 
aia_aot_tiao_ratio(  nov. tiao. ratio  ) ; 

log-Pr int C  "Tiaa  ratio  act  to  Xf\n",  aia.got.tiaa.ratioi  )  ); 

XtPopdovn (  ItPar«nt(  a  )  ); 

XSync(  XtDiaplay(  •  ) ,  0  ) ; 

XaDpdatoDiaplayC  got.top.ahallC  a  )  ); 

} 

> 

////////////////////////////////////////////////////////////////////// 

void  try_aot_tiatt.alieo_cb(  Hidgot  a,  XtPointar  cloaura,  XtPointar  call  data  ) 

< 

IaSolactionBoxCallbackStruct  *cba  ■  (XaSolactionBoxCallbackStructa)call.data; 
char  •naa.tiao_alico.cha r; 
int  noa.tiaa.alico; 

if  (  !  XaStringGotLtoR(  cba->valuo,  XaSTRIHG.DEFiULT.CURSET , 
tnoa.tiaa.alico.char  )  )  { 

fprintf(  atdorr,  " ERROR [try.aat_tiiaa.alica.cb]  XaStringOotLtoR  failad\n"  ); 
ozit(  i  ); 

> 

noa.tiao.alico  ■  atoi(  noa.tiao.alico.char  ); 

XtFroo(  noa.tiao.alico.char  ); 

if  (  noa.tiaa.alico  <  1  )  { 

//  invalid  tiao  alico 
gonoric_aak_naar(  XnDIALOQ.ERROR , 

"Tha  tiao  alico  yon  havo  apocif iod  ia  invalid" , 

"OK".  TOLL,  YES  ); 

> 

olao  { 

//  aot  tho  tiao  alico 
a  ia. aat. tiao. alico (  noa.tiao.alico  ) ; 

log-Print (  "Tiaa  alico  aot  to  Xd\n”,  aia.got.tiao.alico(  )  ); 

XtPopdoan(  XtParont(  a  )  ); 

XSync(  XtOiaplay(  a  ) ,  0  ) ; 

XaOpdatoOiaplay (  got.top.ahollC  a  )  ) ; 

> 

} 

////////////////////////////////////////////////////////////////////// 

void  apdato_aap_cb(  Hidgot  a,  XtPointar  cloaura,  XtPointar  call  data  ) 

{ 

//  chock  to  onauro  that  thoro  ia  a  currant  nodal 
if  (  !aia_got. currant _nodol_nana(  )  )  { 

//  thoro  ia  no  currant  nodal 
gonoric_aak.uaar(  XnDIiLOG. ERROR, 

"Tho  currant  nodal  haa  boon  cloaod,  ao  tha  nap  can’t  bo  updatad", 

"OK",  HULL,  YES  ); 

> 

olao  { 

//  call  tho  function  to  updata  tho  aap  dialog 
updata.aap.dlalogC  ) j 

> 

> 

lumiiiiumiimmimmiiiumumitmiiinmmuiiumu 
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////////////////////////////////////////////////////////////////////// 

III / 

till  It  Work  Procedural 

HU 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

Boolean  run_until.uork.proc  (  XtPointor  client. data  ) 

{ 

Arg  arga  [2] ; 

1st  n; 

char  buffer [100] ; 

Widget  running. dialog  -  (Widget )cliant. data; 
int  atop.oork.proc  *  FALSE; 

//  got  the  currant  • isolation  tine 

int  currant.aia.tiaa  ■  a ia.gat. currant. ala. tiaa(  ) ; 

//  aot  up  labala 

sprintf(  buffer,  "Running  to  tiaa  Xd. . .at  tiaa  Xd" ,  run. until. goal. tine, 
curraat.aia.tiaa  ) ; 

XaString  aaaaaga  *  XaStringCroataSinple(  buffer  ) ; 

XaSt ring  button  ■  XaStrlngCreateSinple(  "Dona"  ) ; 
n  ■  0; 

ItSetirgC  arga [n] ,  InlaeaaageString,  aaaaaga  );  a**; 
if  (  currant.aia.tiaa  >■  run.until .goal. tiaa  )  { 

//  the  aiaulation  run  ia  dona 

//  atop  the  run  until  tiaar 

double  elapaed.tiae  «  global. tiaer->atop(  ) ; 

delate  global .tiaar; 

log.priat(  "Running  until  aiaulation  tiaa  Xd  took  X?-3f  aaconda\n", 
aia.get. current. ain_tiae(  ),  elapaed.tiae  ); 

atop.uork.proc  -  TIDE; 

XtSatArg(  arga  DO,  XaRcancalLabalString ,  button  );  »+♦; 

XtRaao ve AllCallbecka <  running. dialog ,  IakcancalCallback  ); 
XtAddCallback(  running.dialog,  XalcancalCallback,  dona.running.cb, 
(XtPointar)Falao  ); 

//  "ring"  the  uaar 

XBelH  ItDiaplayC  running.dialog  ) ,  SO  ) ; 

} 

alaa  { 

//  azacuta  a  tiaa  alica  of  aiaulation  tiaa 

int  atap.aia.goal.tiaa  »  current . » ia. t iae  ♦  a ia.gat. tiaa. alica (  ) ; 
if  (  »tep.»ia_goal.tiae  >  run.until.goal.tiao  ) 
atap.aia.goal.tiaa  ■  run. until. goal. tiaa; 
if  (  !  aia_ron_until_aia_goal_tiae(  atep.aia. goal. time  )  )  { 

//  failed 

gonaric_aak_uaar(  XaDIALOO.ERROR, 

"Simulation  failed  azacution", 

"OK”,  ROLL,  TES  ); 

> 

} 

XtSatValuaa(  running.dialog,  arga,  n  ); 

XaStr ingFraa (  aaaaaga  ); 

XaStringFraaC  button  ) ; 

II  raturn  either  TRUE  (we* re  dona,  remove  the  work  proc) 

//  or  FALSE  (continue  working  by  calling  thia  function) 
raturn  atop.uork.proc; 

} 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiuiuiiiiimmiii 

Boolean  run_uork_proc(  XtPointor  dient.data  ) 

{ 

//  only  do  anything  if  it  ia  tiaa  to  run  a  tiaa  alica 
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double  current,  dock,  tine  »  get .clock. tine (  ) ; 

If  (  currant. clock. tin*  >•  nazt.clock_tlaa_to.rnn  )  { 

Widget  running. dialog  »  (Widgat)cliant.data; 

//  raad  the  tiaa  alica  and  tiaa  ratio 
lnt  tiaa. alica  •  a ia. got. tiaa. alica (  ) ; 
doubla  tiaa. ratio  ■  aia.gat_tiaa.ratio(  ) ; 

//  run  tha  alaulation  through  a  tiaa  alica 

int  currant. aia_tiaa  ■  aia_gat. currant. aia_tiaa(  ); 

if  (  !aia_run_uatil_aia_goal_tiaa(  currant. a ia. tiaa  *  tiaa. alica  )  )  { 

//  fail  ad 

ganaric.aak.uaar (  XaDIALQG.EttOR, 

"Simulation  failed  azacution", 

"OK",  TOLL,  TES  ); 

> 

doubla  dock.tiae.after.run  *  gat.clock_tiaa(  ) ; 

//  calculate  run  timing  atatiatica 

doubla  duration.of.run  ■  currant .clock. tiaa  -  laat.run.clock.tiaa; 
doubla  duration. of .run. in. aim  a  clock.tiaa_aftar.run  -  currant. clock.tiaa; 
doubla  actual. time. ratio  a  duration. of .run  /  (doubla)tima. alica; 
laat.run.clock.tiaa  a  currant.clock.tiaa; 

//  change  dialog  label 
char  buffer [400] ; 

aprintf (  buffer,  "Running. . .at  tiaa  Xd\n" 

"Deaired  tiaa  ratio:  X7.3f\n" 

"Actual  tiaa  ratio:  X7.3f\n" 

"Total  tiaa  duration:  X8.4f  aaconda\n" 

"Total  tiaa  duration  aiaulating:  X8-4f  aaconda", 

aia.get. current _ aim. time (  ), 

time. ratio,  actual.tiaa.ratio, 

duration. of .run,  duration.of_run_in.aia  ); 

XaString  aaaaaga  »  ZaStringCraataLtoX  buffer,  XnSTSIIG_DEF  AULT. CHARSET  ); 
XtVaSatValuaa (  running. dialog ,  XaHaeeaageStriug ,  aaaaaga,  TOLL  ); 
XaStringFraa(  aaaaaga  ) ; 

//  calculate  nazt  clock  tiaa  to  run 
nazt.clock_tiaa_to.run  •  currant .clock.tiaa  * 

(doubla)tiaa.alica  a  tiaa. ratio; 

> 

//  alvaya  continue  work  procedure  until  atoppad  by  uaar 
return  FALSE; 

> 

////////////////////////////////////////////////////////////////////// 

////////////////////////////////////////////////////////////////////// 

//// 

////  Generic  Aak  Uaar  Koutinaa 

//// 

////////////////////////////////////////////////////////////////////// 
atatic  void  generic_aak_uaar.reaponae.cb(  Widget  «,  XtPointar  cloaura, 
XtPointar  call .data  ) 

< 

XaAnyCallbackStruct  »cba  ■  (XminyCallbackStruct*) call. data; 
int  aanauar  ■  (int*)doaura; 

auitch  (  cb*->raa»on  )  { 
caaa  XaCK.OK: 

•anauar  a  TES ; 
break; 

caaa  XaCI.CANCEL: 
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•answer  *  >0; 
break ; 

} 

> 

////✓/////////////////////////////✓✓/✓//✓///////////////////////////// 
int  generic.aak.userC  unsigned  char  dialog.type,  char  ^question, 
char  •answer. yes ,  char  * answer. no,  int  default. answer  ) 

static  Widget  dialog  a  TOLL; 
static  int  answer; 

if  (  ‘dialog  )  { 

Arg  args [2] ; 

XtSetArg(  args [0] ,  XnNdialogStyle ,  InDIiLOG. FULL. 1PPLICATI0K. MODAL  ); 
XtSetArg(  args[l],  XjsNnoKesize,  True  ); 

dialog  ■  XaCreateMessageDialogi  toplevel,  "dialog",  args,  2  ): 
ItSetSensitive(  XaMessageBozGetCbi Id (  dialog, 

XsCIALOG.HELP.BUTTON  )  ,  False  )  ; 

XtAddCallback(  dialog,  XsrilokCallback ,  genoric.ask.user.response.cb, 
(XtPointer)kansser  ) ; 

XtAddCallback(  dialog,  XsdlcancelCallback ,  genaric.ask_nser_rasponse.cb, 
(XtPointer)kanswer  ) ; 

> 

answer  ■  0; 

XnString  text  »  InStringCreateSimpleC  question  ) ; 

XnString  yes  *  XnStringCreateSinple(  answer. yes  ) ; 

XaStrlng  no  *  XaStringCreateSimple (  answer.no  ) ; 

XtVaSetValues (  dialog, 

IadldialogType ,  dialog. type, 

XmNmessageString.  text, 

IalokLabelString,  yes, 

XaNcancelLabelString,  no, 

XmKdef aultButtonType ,  default  .answer  "TEST 
XnDIALOG.OK.BUTTOH  :  InDIALOG. CANCEL. BUTTOM , 

NULL  ); 

XnStringFreeC  text  ) ; 

XaStringFree(  yes  ) ; 

XmStr  ingFree  (  no  ) ; 

//  only  show  the  cancel  button  if  "answer.no"  is  not  NULL 
if  (  answer.no  ) 

XtManageChi Id (  IsdiessageBoxGetCbild (  dialog,  XaDIALOG.CANCEL.BUTTON  )  ); 

else 

XtUnnanageChi Id (  IaMessageBoxGetChild(  dialog,  XaDIALOG.CANCEL.BUTTON  )  ); 
II  set  the  dialog  title  based  upon  the  dialog  type 
switch  (  dialog.type  )  { 
case  XaDI ALOG.ERROR : 

XtVaSetValues (  XtParent(  dialog  ),  XtNtitle,  "Error",  NULL  ); 
break; 

case  XaDIALOG.INFQBMATION : 

XtVaSetValues (  XtParent (  dialog  ),  XtNtitle,  "Inforaation”,  NULL  ); 

break; 

case  XaDIALOG.MESSAGE ; 

XtVaSetValues (  XtParent (  dialog  ),  XtNtitle,  "Message",  NULL  ); 
break; 

case  XaDIALOG.QUESTION : 

XtVaSetValues (  XtParent(  dialog  ),  XtNtitle,  "Question",  NULL  ); 
break; 

case  XnDIALOG. WARNING: 

XtVaSetValues (  XtParent (  dialog  ),  XtNtitle,  "Warning",  NULL  ); 
break; 

case  XaDIALOG. WORKING: 

XtVaSetValues (  XtParent (  dialog  ),  XtNtitle,  "Working”,  NULL  ); 
break; 
default : 


131 


fprintfC  stdarr,  HERROR[generic_ask.user]  impossible  dialog  typ*\n"  ); 

•xit(  1  ) ; 

break; 

} 

XtHanageChild(  dialog  ); 

X t Popup (  XtParent(  dialog  ),  XtGrabHone  ); 

//  while  tba  uaar  hasn’t  providad  an  answer ,  simulate  the  main  loop 
//  (note  that  the  mode  is  XaDIALaG.FOU._lPPLXCATI01f.H0DU.  so  the 
//  should  not  notice  this  "takeover"  of  the  program) 

■bile  (  answer  »■  0  ) 

XtAppProcessEvent(  app,  XtIMAll  ); 

XtPopdown(  XtParent(  dialog  )  ); 

XSync(  XtDisplayC  dialog  ),  0  ); 

XaOpdataDisplay (  toplevel  ); 

return  ansuer; 

} 

////////////////////////////////////////////////////////////////////// 


3.1.21  simulate.hh 

The  source  code  for  the  file  simulate.hh  is  listed  below. 

•ifndef  _ SIMULATE.HH 

•define  _ SIMOLATE.HH 

/• 

••*** 


*  • 

• 

•  • 

• 

• 

• 

•• 

••••• 

•••••• 

• 

• 

*•  •* 
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•••*• 
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•  ••  * 
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• 
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• 

• 

••••• 
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•  • 
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•*•••• 
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•  • 
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•  • 

• 

• 

• 

• 

• 

• 

> 

•••*• 

* 

•  • 

•••• 

•••»•• 

* 

• 

• 

••••»• 

siaulata. hh 

Air  Force  Institute  of  Technology 
Timothy  J.  Hal lor an 
IS  Aug  1993 
*/ 

•define  TRUE  1 
•define  FALSE  0 

void  sia.add_players_to.hexboard(  ) ; 

int  sia.conf igure.clearC  double!  elapsed. time  ) ; 

int  sia.configure_create(  int  nua.aircraf t ,  int  nun. trucks,  int  hezboard.size, 
doublet  elapsed. time  ) ; 
int  sia_db_connect(  char*  db.nane  ) ; 
int  sia_db_disconnect(  ); 
char  *sia_get_current_aodel.naae(  ); 
int  sia_get_current.sia_time(  ) ; 

int  sia_get_hezboard_size<  intt  hezboard. width,  intt  hexboard_height  ); 
double  sia.get_tiae.ratio(  ); 
int  sia.get.tiae.sliceC  ) ; 
int  sim_nodel_close(  ) ; 

int  sim.nodel_list_of_existing(  char  ***models,  intt  size); 

int  sia_model.new(  char*  scenario.naae ,  doublet  elapsed.tiae  ); 

int  sim_model_open(  char*  scenario.naae,  doublet  elapsed.tiae  ); 

int  sia.aodel_save_as(  char*  scenario.naae,  doublet  elapsed.tiae  ); 

int  sim.report (  doublet  elapsed.tiae  ) ; 

int  siB.run.until.sia_goal.tiae(  int  goal.sia.tiae  ) ; 

void  sia.set.time.ratio(  double  neu.tiae.ratio  ) ; 
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void  sim.set.time.sliceC  int  nes.time.slice  )  ; 
•endif  _ SIMULATE. HB 


3.1.22  simulate.cc 

The  source  code  for  the  file  simulate.cc  is  listed  below. 

/* 

Mill 


•  • 

• 

•  • 

•  • 

• 

•• 

••••• 

•••••• 

• 

• 

»•  •• 

•  • 

• 

• 

* 

• 

• 

<•••• 

• 
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•  • 
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•  • 

• 

1 

i 

• 

• 

«»«»• 

• 

•  • 
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aimulata.ee 

This  modula  controls  interactions  between  the  Motif  user  interface 
(and  hence  the  user)  and  the  object-oriented  DBMS. 

Air  Force  Institute  of  Technology 
Timothy  J.  Halloran 
16  Aug  1993 

*/ 

*include<ostore/ostore .hh> 

>include<ostore/ coll . hh> 

•includa<ostore/relat ,hh> 

*include<Zm/Xm.h>  //  only  needed  for  It  memory  management  (i.e.  XtMalloc) 
•include <  stdio . h> 
tincluda<stdlib.h> 
tinclude<debug . hh> 

•include "hexplay . hh" 

•include ” location .hh" 

• include" stopwt ch .hh" 

•include"dice . hh" 

•include"expon . hh" 

•include”simulate .hh" 

•include"model . hh" 

•include"event . hh" 

•include"environ - hh" 

•include"player . hh" 

•include"hexboard . hh" 

•inclnde"aircraft .hh" 

•include"truck . hh" 

•define  TRUE  1 
•define  FALSE  0 

•define  STREAM  1 

•define  FETCH.SIZE.IH.BTTES  8192 

static  char  ‘aircraft .home .bases [10]  ■  { 

"HOME-BASEO" ,  "H0ME-BASE1" .  "H0ME-BASE2" ,  "H0HE-BASE3",  "H0ME-BASE4" , 
"HOME-BASES" ,  "H0ME-BASE6" ,  "H0ME-BASE7" ,  "H0ME-BASE8" ,  "H0ME-BASE9" 

>; 

static  char  ‘truck. types [10]  >  { 

"TRUCK-TTPEO" ,  "TRUCK-TTPE1" ,  "TRUCK-T7PE2" ,  "TRUCK-TTPE3" ,  "TRUCK-TTPE4" , 
"TRUCK-TTPE6" ,  "TRUCK-TTPE6" ,  "TR0CK-TTPE7" ,  "TRUCK-TTPE8" ,  "TRUCK-TTPE9" 

}; 


static  char  ‘truck.pay loads [10]  ■  { 


133 


"CARGO-TYPEO" ,  "CARGO-TYPE1"  ,  "CARG0-TYPE2" .  "CARG0-TTPE3" ,  "CARG0-TYPE4" , 
"CARGO-TYPES",  "CARGO-TYPES" ,  "CARG0-TYPE7",  "CARG0-TYPE8",  "CARGO-TYPES" 

>; 

static  char  emisc.sim.dataClO]  *  { 

"OOOOO-SXM-OOOOO-SIM-OOOOO-SIM-OOOOO-SIM-OOOOO-SIM-", 

"lmi-siM-um-siH-um-siM-iim-sni-mii-siM-", 

"22222-SIM-22222-SIM-22222-SIM-22222-SIN-22222-SIM- " , 
"33333-SIM-33333-SIM-33333-SIM-33333-SIM-33333-SIM- " , 
"44444-SIM-44444-SIM-44444-SIM-44444-SIM-44444-SIH-" , 
"66566-SIM-56666-SIM-E5656-SIM-85555-SIM-656E6-SIM- " , 
"66666-SIM-66666-SIM-66688-SIM-66S66-SIH-66666-SIM-", 
"77777-SIM-77777-SIM-77777-SIM-77777-SIM-77777-SIH-", 
"88888-SIM-88888-SIM-88888-SIM-88888-SIM-88888-SIM-", 
"99999-SIM-99999-SIM-99999-SIM-99999-SIH-99999-SIM-" 

}; 

//  declare  functions  used  in  this  module 
static  model  eget.current. model (  )  ; 

//  global  and  module  variables 

os. database  *db  »  HULL;  II  required  to  be  here  by  ObjectStore 
persistent<db>  os. workspace  *sim.es  -  HULL; 
persistent<db>  os_Set<nodel*>  emodel; : extent  «  0; 
static  char  ‘current. model .name  -  HULL; 
static  int  connect ed.to.db  «  FALSE; 
static  int  time.slice  •  1; 
static  double  time. ratio  •  1.00; 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

static  model  *g« t .current .model (  ) 

{ 

DEBUG.IHITC  "SIMULATE”  ,  "get.current_model"  ); 

DEBUG. 0UT(  "entering".  1  ); 

DEBUG.OUTC  sprintf(  BUG,  "looking  up  model  \"%s\"" .  current .model. name  ),  2  ); 
II  uses  the  global  variable  "current .model.name"  to  get  a  pointer  to 
//  the  current  model  in  the  database 

//  (the  database  must  be  vithin  a  transaction  to  call  this  function) 
return  (  emodel :: extent  ) [XstrcmpCname, currant. model. name)»»0X]  ; 

> 

////////////////////////////////////////////////////////////////////// 

void  sim.add.players_to_hexboard(  ) 

DEBUG_IHIT(  "SIMULATE"  ,  "sim.add.players.to.hexboard"  ); 

DEBUG. OUT (  "entering",  1  ); 
int  pos.z,  pos.y; 

do. transact ion  ()  { 

model  ecurrent.model  »  get. current. model (  ); 

//  add  all  the  simulation  players  to  the  hexmap 

for  (  environment  *m  »  current _model->f irst .member  ;  m  ;  m  ■  m->next  )  { 
if  (  (  !strcmp(  m->query(  "CLASS"  ),  "AIRCRAFT"  )  )|| 

(  !strcmp(  m->query(  "CLASS"  ),  "TRUCK"  )  )  )  { 
decode. location (  m->query(  "LOCATION"  ),  pos.x,  pos.y  ); 
add_player.to.hexboard(  m->query(  "CLASS"  ) ,  m->query (  "NAME"  ) , 
pos.x,  pos.y  ); 

} 

> 

> 

> 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIUIIIIIIIIIIII 

int  sim.conf igure_clear(  doublet  elapsed. time  ) 

< 


DEBUG. HIT (  "SIMULATE"  ,  "sim.configure.clear"  ); 

DEBUG. OUT (  "entering" ,  1  ); 

stopwatch  timer; 
timer, start (  )  ; 

TIX. HANDLE (all. except ions) 
do. transaction  ()  { 

nodal  'currant. nodal  »  gat. current .model (  ); 

//  clear  out  the  currant  modal 
current _model->clear(  ); 

> 

TIX. EXCEPTION 
return  FALSE; 

TIX.END. HANDLE 

elapsed. time  >  timer. stop(  ); 
return  TRUE; 

> 

////////////////✓////////////////////////////////✓//////////////////// 
int  sia.conf igure.craata(  int  num.aircraft,  int  num. trucks ,  int  her board. size, 
doublet  elapsed  time  ) 

DEBUG. IN IT (  "SIMULATE"  ,  "sin. configure. create"  ); 

DEBUG. OUT (  "entering",  1  ); 
int  i; 

char  new.name [10] ; 
char  new.location [10] ; 

stopwatch  tiner; 
timer . start (  ); 

TIX.HANDLE(all.exceptions) 
do. transact ion  ()  { 

modal  'currant .model  *  get. current. model <  ); 

//  clear  out  the  current  model  (just  in  case  the  user  forgot  to) 
current _model->clear(  ) ; 

//  create  the  hexboard 

current .model ->add_env ironment .member (  new(db,  current_model->model.config) 
hexboard (  "HEXBOARD",  hexboard.size,  hexboard.size  )  ); 

//  create  the  trucks 
for  (  i  •  0  ;  i  <  num.trucks  ;  i++  )  •{ 
sprintf (  new.name ,  "GND-XOBd" ,  i  ) ; 
char  'new.type  »  truck_types[roll(  0,  9,  STREAM  )] ; 
char  'new.payload  *  t ruck. payloads [roll (  0,  9,  STREAM  )]  ; 
char  'new.misc.sim.data  «  misc_sim_data[roll(  0 ,  9 ,  STREAM  )]  ; 
encode. location (  new.location, 

(int)roll(  1,  hexboard.size,  STREAM  ), 

(int)roll(  1,  hexboard.size,  STREAM  )  ); 

II  create  a  single  truck  and  add  it  to  the  model’s  environment 
truck  'new.truck  ■  new(db,  current .model->model.config) 
truckC  new.name,  new.type,  new.payload, 
new.location,  new.misc.sim.data  ); 
current _model->add. environment .man bar (  new.truck  ) ; 

//  schedule  an  initial  "MOVE"  event  for  the  truck 
current _model->schedule(  new.truck,  new.name, 

current. model- >sim_ time  +  (int)expon(  600.0  ,  STREAM  ),  "MOVE”  ); 

> 

//  create  the  aircraft 
for  (  i  •  0  ;  i  <  num.aircraft  ;  i++  )  { 
sprintf (  new.name ,  "AIR-XOBd" ,  i  ) ; 
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char  •nan.hona.baae  •  aircraft. home.basesCrolK  0,  9,  STREAM  )] ; 
char  *naH.miac.slm_data  ■  misc_sim.data[roll(  0,  9,  STREAM  )] ; 
encode. location (  new.location, 

(int)roll(  1,  hazboard.aiza,  STREAM  ), 

(int)roll(  1,  hazboard.aiza,  STREAM  )  ); 

//  create  a  aingle  aircraft  and  add  it  to  the  nodal* a  environment 
aircraft  *new.aircraft  •  nan(db,  current .model- >model_config) 

aircraft (  neH.name,  new. home. base,  new. location,  naw.niac.ain.data  ); 
curr ant .model->add. environment. member (  new. aircraft  > ; 

//  achadula  an  initial  "MOVE"  event  for  the  aircraft 
current.nodal->achedule(  naw.aircraft,  new. name, 

currant.nodal->aim.tina  ♦  (int)azpon(  60.0  ,  STREAM  ),  “MOVE”  ); 

> 

> 

TIX.EXCEPTI0M 
return  FALSE; 

TIX.END.BANDLE 

elapsed. time  >  timer.atopC  >; 
return  TRUE; 

> 

iiiiiiiiiiimuiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiimiiiiiiiiiii 

int  aim. db. connect (  char*  db.name  ) 

{. 

DEBUG. INIT(  "SIMULATE"  ,  "sim.db.connect"  ) ; 

DEBUG. OUT C  "entering",  1  ); 

object st ore : : initialize{  ); 
oa .collection:  -.initialize!  ); 

TIX.BANDLE(all.ezceptions) 

//  open  the  database 

db  ■  oa .database :: open (  db.name  ); 

//  tell  ObjectStore  not  to  read  the  entire  segment 
db->set_read_whole_segment (  FALSE  ); 

//  set  the  fetch  policy  of  ObjectStore  to  fetch  a  number  of  bytea  at  a  time 
db->set.fetch.policy(  os.fetch.page,  FETCB.SIZE.IN.BTTES  ); 

do.tranaaction  ()  { 

os. workspace: :set_current(  sim.ws  ); 

> 

TIX.EXCEPTIOH 
return  FALSE; 

TIX.END.BANDLE 

connected.to.db  *  TRUE; 
return  TRUE; 

> 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

int  aim.db_disconnect(  ) 

DEBUG.INITC  "SIMULATE"  ,  "sim.db.disconnect"  ); 

DEBUG. OUT (  "entering”.  1  ); 

if  (  ! connected.to.db  )  return  TRUE; 

//  make  sure  there  is  no  current  model 
if  (  current .model. name  )  { 
free(  current .model .name  ); 
current .model .name  ■  NULL; 

> 
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TIX. HANDLE (all. except ions) 

//  close  the  database 
db->close(  ); 

TII. EXCEPTION 
return  FALSE; 

TIX.END. HANDLE 

connect ed. to. db  »  FALSE; 
return  TRUE; 

> 

////////////////////////////////////////////////////////////////////// 

char  * sim.get. current .model. name (  ) 

return  current .model .name; 

> 

////////////////////////////////////////////////////////////////////// 

Int  sim.get.current.sim.time(  ) 

< 

DEBUG. INIT(  "SIMULATE"  ,  "sim.get. current. sim.tiae"  ); 

DEBUG. OUT (  "entering",  1  ); 
int  current.sim.time; 

do.tr ansact ion  ()  { 

model  * current .model  *  get .current .model (  ) ; 
current.sim.time  *  current _model->sim_time; 

> 

return  current. sim_time; 

> 

////////////✓///////////////////////////////////////////////////////// 

int  sim.get_hezboard_size(  intt  hexboard.sidth,  intt  hezboard.height  ) 

< 

DEBUG. IHITC  "SIMULATE"  ,  "sim.get.hexboard.aize"  ); 

DEBUG. OUT (  "entering",  1  ); 
int  found.hexboard  *  FALSE; 

TIX.HAMDLE(all.exceptions) 
do. transact ion  ()  { 

model  • current .model  «  get .current .model (  )  ; 

//  determine  the  size  of  the  hexmap 

for  (  environment  *m  »  current.model->first .member  ;  m  ;  m  •  m->next  )  { 
if  (  !strcmp(  m->query(  "SAME"  ),  "HEXBQARD"  )  )  •( 
hexboard.sidth  »  atoi(  m->query(  "WIDTH"  )  ); 
hezboard.height  •  atoi(  m->query(  "HEIGHT"  )  ); 
found.hexboard  *  TRUE; 
break; 

> 

> 

> 

TIX.EXCEPTION 
return  FALSE; 

TII.EHD.HAMDLE 

if  (  {found.hexboard  )  return  FALSE;  //  never  found  the  hexboard 
return  TRUE; 

} 

////////////////////////////////////////////////////////////////////// 

double  sim.get.time.ratioC  ) 

< 

DEBUG.IHITC  "SIMULATE"  ,  "sim.get.time.ratio"  ); 

DEBUG. OUT (  "entering",  1  ); 
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return  time. ratio; 


> 

////////////////////////////////////////////////////////////////////// 

int  sim.get. time. slice!  ) 

{ 

DEBOG. IS IT (  "SIMULATE"  ,  "eim.get.time.elice"  ); 

DEBUG. OUT (  "entering",  1  ); 

return  time. slice ; 


> 

✓///////////✓////////////////////✓//////////////////////////////////// 
int  sim.model.close!  ) 

DEBUG. IHIT(  "SIMULATE"  ,  "eim.model.cloee"  ); 

DEBUG. OUT (  "entering",  1  ); 


//  closing  the  current  model  just  involves  removing  the  name  from 
//  "current. model. name" 
if  (  current .model. name  )  { 
free(  current.model.name  ) ; 
current .model. name  >  NULL; 

> 

return  TRUE; 

) 

////////////////////////////////////////////////////////////////////// 

int  sim.model. list. of .existing!  char  eeemodels,  int*  size) 

{ 

DEBUG. INIT(  "SIMULATE"  ,  "sim.model.list.of .existing"  ); 

DEBUG. OUT (  "entering",  1  ); 

static  char  ••existing.models  -  NULL; 


TII.HANDLECall. exceptions) 
do. transact ion  ()  i 

existing.models  *  (char**)XtRealloc(  (chare)existing_models , 
model: :extent->cardinality(  )  *  sizeof (char*)  ); 
size  ■  0; 

foreach  (  model  em,  ‘model :: extent  )  { 

existing.models [size**]  «  strdup!  m->name  ); 

> 

} 

TIX.EXCEPTION 
return  FALSE; 

TIX.EMD.HANDLE 


•models  «  existing.models; 
return  TRUE; 

> 

iiitiiiiiiiiiiuiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiiiunmiiiii 

int  sim.model.nev!  char*  model. name,  doublet  elapsed.time  ) 

DEBUG .IN IT!  "SIMULATE"  ,  "sim.model.neu"  ); 

DEBUG. OUT!  "entering",  1  ); 
int  already.exists  >  FALSE; 

stopsatch  timer; 
timer -start!  ) ; 


TIX_BANDLE!all_ exceptions) 
do.transaction  !)  < 

//  ensure  that  the  nea  model  name  is  not  already  in  use  by  another  model 
foreach  !  model  *m,  ‘model :: extent  )  { 
if  !  istrcmp!  model. name,  m->name  )  ) 
already. exists  ■  TRUE; 
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} 

> 

if  (  already .exists  )  return  FALSE; 
do.transaction  ()  { 

oa_ configuration  ‘model. config  »  new(db)  oa. configuration  ); 
new  (db,  Bodal.config)  model C  modal .name ,  model. config  ); 

//  save  the  name  ao  the  modal  may  be  attached  to  when  needed 
current .model .name  ■  strdupC  model.name  ) ; 

> 

TII. EXCEPTION 
return  FALSE; 

TIX.END.HANDLE 

elapaed.time  *  timer. atop(  ); 
r  irn  TRUE; 

> 

/////✓///////////////////////////////////////////////////✓//////✓///// 

int  elm. model. open (  char*  model.name,  double!  elapaed.time  ) 

{ 

DEBUG. INIT(  "SIMULATE"  ,  "aim.model.open"  ); 

DEBUG. OUT (  "entering",  1  ); 

atopwatch  timer; 
timer. atart(  ); 

TII.HANDLECall. exceptions) 
do. transaction  ()  { 

//  make  aura  that  the  model  exists  in  the  databaaa 

modal  ecurrent.model  *  (  emodel :: extent  )  [Xatrcmp (same, model.name) “OX]  ; 

//  save  the  name  ao  the  model  may  be  attached  to  Bhen  needed 
current.model.name  *  etrdup(  model.name  ) ; 

} 

TIX. EXCEPTION 
return  FALSE; 

TIX.END.HANDLE 

elapaed.time  ■  timer. atop(  ); 
return  TRUE; 

> 

lllllllllllllllllllllllllllllllimillilllllllllllllllllllllllllllllll 

int  sim.model.save.aaC  char*  model.name,  double!  elapaed.time  ) 

< 

DEBUG. INIT(  "SIMULATE"  ,  "aim.model.aave.aa"  ); 

DEBUG .OUT (  "entering".  1  ); 

atopwatch  timer; 
timer. start (  ); 

TII_HANDLE(all. exception*) 
do. transaction  ()  { 

//  copy  the  model,  but  don’t  change  the  current  model 

os .configuration  *model. config  »  nen(db)  oa.configuration(  ); 

new  (db,  model.config)  model (  get. current .model (  ),  model.name,  model. config  ); 

> 

TIX.EXCEPTION 
return  FALSE; 

TIX.END.HANDLE 

elapaed.time  *  timer. atop(  ); 
return  TRUE; 

> 
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////////////////////////////////////////////////////////////////////// 

int  s  im_ report (  doublet  elapeed.time  ) 

1 

DEBUG. IMIT(  "SIMUUTE"  ,  "sia.raport”  ); 

DEBUG. OUT (  "entering" ,  1  ); 

PILE  erf i la; 

if  (  C  rfila  -  fopenC  "SIM.REPORT"  ,  "wt"  )  )  ■■  TOLL  )  { 
return  FALSE; 

> 

stopwatch  timar; 
timer, start (  ); 

TIX.HAMDLECall. exceptions) 
do. transaction  ()  { 

nodal  * currant .modal  »  gat. currant. modal (  ); 

//  raport  all  tha  logitaas 

fprintf (  rfila,  " - - - - - \n" 

fprintf (  rfila,  "  AFIT  SiaBanch  REPORT  (SIM  TIME;  Xd  sac)\a", 
currant.aodal->sia.tiaa  ) ; 

fprintf (  rfila,  " — - — - - + - — - -4 - 4 - \n"  ); 

fprintf (  rfila,  ”XlOs  I  XlOs  I  XlOs  I  XlOsNn", 

"AIRCRAFT",  "TRUCK",  "L0CATI0B",  "SIM  TIME"  ); 

fprintf (  rfila,  " - — 4 - - 4 - 4 - \n" 

for  (  logitaa  *1  -  currant_modal->first.logitan  ;  1  ;  1  ■  l->nazt  )  { 
l->output(  rfila  ); 

} 

fprintf (  rfila,  " - - - - - - - \n"  ); 

> 

TIX.EXCEPTIOM 
raturn  FALSE; 

TIX.EMD.BAMDLE 

alapsad.tiaa  *  timar. stop(  ); 
fclosa(  rfila  ) ; 
raturn  TRUE; 

} 

////////////////////////////////////////////////////////////////////// 

int  sin_run_until_sim_goal_timo(  int  goal  sia  time  ) 

{ 

DEBUG. IMITC  "SIMULATE"  ,  "sim.run.nntil.sim.goal.tima"  ) ; 

DEBUG .OUT (  "antaring",  1  ); 

TIX.BAKDLE(all.axcaptions) 
do. transact ion  ()  { 

modal  *currant .modal  ■  gat. currant. modal  (  ); 
currant_aodal->run.until_sim.goal  tima(  goal  sim  tima  ); 

> 

TIX.EXCEPTIOM 
raturn  FALSE; 

TIX.EMD.HAJTOLE 

raturn  TRUE; 

} 

////////////////////////////////////////////////////////////////////// 

void  sim.sat.tiaa_ratio(  double  nav  tima  ratio  ) 

•C 

DEBUG. IMITC  "SIMULATE"  .  "sim.sat.tima.ratio"  ) ; 

DEBUG. OUT (  "antaring",  1  ); 
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tiaa.ratio  «  nav. tiaa.ratio; 

> 

////////////✓/////////////////////////////////////✓/////////////////// 

void  siu.sat.tiae.slice<  int  nes.tiae.slice  ) 

{ 

DEBUG. I H IT (  "SIMULATE"  .  "sia.sat.tiae.slice"  ); 

DEBUG. OUT (  "entering" ,  1  ); 

time.* lice  «  nes.tiae.slice; 

} 

////////////////////////////////////////////////////////////////////// 


3.1.23  truck.hh 

The  source  code  for  the  file  truck.hh  is  listed  below. 

Sifndef  __.TBUCK.HH 
•define  __.TBUCK.HH 

/• 


•  Hill  •  « 

•  *  •  •  • 

•  »  •  t  t 

*  *•*••  •  * 

•  •  •  •  * 

*  •  #  **#» 

truck.hh 

Air  Forca  Instituta  of  Technology 
Tiaothy  J.  Halloran 
20  Aug  1993 
•/ 

t include "player . hh" 

class  truck  :  public  player  { 

char  naae[10] ; 
char  type [12] ; 
char  payload [12] ; 
char  location[10] ; 
char  misc.sia.data[61] ; 

public: 

truck(  char  aname,  char  *type,  char  apayload,  char  alocation, 
char  *misc_sin_data  ) ; 

environment  aclone(  os.databasa  *db,  os.configuratiou  amodel.config  ); 
void  execute (  char  amessage,  modal*  aim. model  ); 
char  *query(  char  adata.itaa  ) ; 

}; 

Sandif  _ TRUCK.HH 


3.1.24  truck.cc 

The  source  code  for  the  file  truck.cc  is  listed  below. 

/a 

SSSSSSS 

•  #####  f  •  •  • 

*  t  *  *  t  I  ••• 


sets  t  • 
•  •  •  < 

•  tttt 

•  *  • 

*  *  •  * 

tttt  t  * 
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•  •  •  •  •  •  ««»• 

•  «••••  •  •  •  •  • 

•  I  I  I  ••  ••• 

•  •  •  ••••  ••••  •  * 

truck. cc 


Air  Fore*  Institute  of  Technology 
Tieothy  J.  Halloran 
20  Aug  1993 


Revisions : 

30  Sap  1993  -TJH-  Renoved  all  class  inline  functions  duo  to  compiler 
Unit  at  ions  (CC  compiler  is  not  a  "full"  C++) . 

*/ 

•includa<ostora/ostora . hh> 
fincluda<os toro/coll . hh> 
f includa<ostoro/rolat .  hh> 

9includa<stdio . h> 

•includo<stdlib .h> 


#includa<  string . h> 

* indude<debug . hh> 
•include "nodal,  hh" 
•include" truck .  hh" 
•include"di ce . hh” 
•include"expon . hh" 
•include" location . hh" 


•define  STREAM  1 

////////////////////////////////////////////////////////////////////// 
truck : : truck (  char  enane,  char  *type,  char  epayload,  char  elocution, 
char  enisc.sisuda+t  ) 

{ 

DEBUG. I>IT(  "TRUCK"  ,  "truck: -.truck"  ); 

DEBUG. OUT (  "entering".  1  ); 

strnepy (  truck: :nane,  nane,  9  ); 

truck:  :naaM[9]  »  ’\0’; 

strnepy (  truck: :type,  type,  11  ); 

truck:  .-type [11]  ■  *\0’; 

strnepy (  truck: : payload,  payload,  11  ); 

truck: : pay load [11]  ■  ’NO’; 

strnepy (  truck: : location,  location,  9  ); 

truck: : location [9]  ■  ’NO’; 

strnepy (  truck: : else _sia.dat a.  aisc.sia.data,  60  ); 
truck: :aisc_sia.data[60]  «  ’NO’; 

DEBUG_0UT(  sprintf(  BUG,  "Xs  Xs  Xs  Xs”,  nans,  type,  payload,  location  ),  2  ); 

> 

////////////////////////////////////////////////////////////////////// 

environeent  struck: : clone (  o ^.database  edb,  os. configuration  eaodel.config  ) 

{ 

DEBUG.INITC  "TRUCK"  ,  "truck: : clone"  ); 

DEBUG. OUT (  "entering",  1  ); 

anvironnent  +c  *  neu(db,  nodal. config) 

truck (  naae,  type,  payload,  location,  nisc.sia.data  ); 
return  c; 

> 

////////////////////////////////////////////////////////////////////// 

void  truck: : execute (  char  eaessage,  nodal*  sin.nodel  ) 

< 

DEBUG. HIT (  "TRUCK"  ,  "truck: : execute"  ); 

DEBUG. OUT (  "entering",  1  ); 
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DEBUG. OUT (  sprint* (  BUG,  is  ),  2  ); 

if  <  !  strcapC  Miitgt,  "MOVE"  )  )  { 

//  axacuta  tha  "MOVE"  avast 

int  haxboard. vidth ,  haxboard.haight ; 

//  datarmina  tha  lira  of  tha  haxmap 

for  (  anvironaant  »a  •  sia.aodal->f irst.aaabar  ;  a  ;  a  »  a->naxt  )  { 
if  (  !  strcapC  a->quary (  "HAME"  ),  "HEXBOAhD"  )  )  { 
haxboard. width  »  atoi(  a->quary(  "WIDTH"  )  ); 
haxboard.haight  a  atoi(  a->quary (  "HEIGHT"  )  ); 
braak; 

> 

> 

//  aova  tha  truck 

r andoa.mova (  location,  haxboard. width,  haxboard. haight  ); 

//  schadula  tha  naxt  aova  for  this  truck  (axpoaaatial  uith  naan  600.  0) 
aia_Bodal->schadulo(  this,  naaa , 

sia_aodal->sisL.tlaa  ♦  (int)oxpoa(  600.0  ,  STREAM  ), 

"MOVE"  ); 

} 

also  { 

fprintf (  stdarr,  "UARHIHG  [truck- Xs]  unknown  aassaga\a",  aaaa  >; 

> 

> 

////////////////////////////////////////////////////////////////////// 

char  struck: :quary(  char  adata.itaa  } 

DEBUG. I H IT (  "THUCK"  ,  "truck: :quary"  ) ; 

DEBUG. OUT (  "antaring".  1  ); 

if  (  ! strcap(  data.itaa,  "CLASS"  )  )  { 
raturs  "THUCK"; 

> 

alsa  if  (  !strcap(  data_itaa,  "HAME"  )  )  { 
raturs  naaa; 

> 

alsa  if  (  !strcap(  data.itaa.  ”TTPE"  )  )  { 
raturs  typa; 

} 

alsa  if  (  !strcap(  data.itaa,  "PATLOAD"  )  )  < 
raturs  payload; 

} 

also  if  (  !strcap(  data.itaa,  "L0CATI0H"  )  )  < 
raturs  location; 

} 

raturs  "ERkOR"; 

} 

////////////////////////////////////////////////////////////////////// 
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